连接数据库，返回DataTable的函数

Module ModulePublic Module ModulePublic

Public ConnectionString As String = "workstation id=localhost;packet size=4096;user id=hncrecsu;data source=localhost;persist security info=True;initial catalog=hncre200511;password=hn410007csu"

Public Function ReturnConnectionString()Function ReturnConnectionString()
        Return ConnectionString
End Function

End Module

Function getDataTable() Function getTableData(ByVal strCommandText As String) As DataTable    '连接数据库，并根据指定的sqlSting，把数据读到DataGridView中
        Dim myConnectionString As String  '用来连接数据库

        Dim myDataTable As New DataTable
        myConnectionString = ReturnConnectionString()
        Dim myConnection As New SqlConnection(myConnectionString)

        Dim myCommand As New SqlCommand(strCommandText)
        myCommand.Connection = myConnection
        myConnection.Open()

        Dim myAdapter As New Data.SqlClient.SqlDataAdapter
        myAdapter = New Data.SqlClient.SqlDataAdapter(strCommandText, myConnection)
        myAdapter.Fill(myDataTable)
        myConnection.Close()
        getDataTable = myDataTable
    End Function