datagridview数据绑定的代码,该怎么处理

Dim strConn As String = "server=192.168.1.253;database=EN4;uid=sa;pwd=123;"
Dim strConnection As String = strConn
Dim sqlConnection As New SqlConnection(strConnection)
Dim sqlStr as String = "select 字段1,字段2,字段3 from ANNA"

------解决方案--------------------

连接数据库:
Dim strConn As String = "server=192.168.1.253;database=EN4;uid=sa;pwd=123;"
Dim strConnection As String = strConn
Dim sqlConnection As New SqlConnection(strConnection)
Dim sqlStr as String = "select 字段1,字段2,字段3 from ANNA"

将数据转换为数据表:
Public Function GetDataTable(ByVal sqlcmd As String, ByVal tablename As String, ByVal sqlConnection As SqlConnection) As DataTable
       '数据库连接
       Dim dataAdapter As New SqlDataAdapter
       Dim dst As New DataSet
       Dim dt As New DataTable

       sqlConnection.Open()   '打开数据库

       Dim sql As String = sqlcmd
       Dim cmd As SqlCommand = New SqlCommand(sql, sqlConnection)

       dataAdapter.SelectCommand = cmd
       dataAdapter.Fill(dst, tablename)
       dt = dst.Tables(tablename)
       sqlConnection.Close()   '关闭数据库

       Return dt
   End Function

将数据表绑定到datagridview
datagridview.DataSource = GetDataTable(sqlStr, "result", sqlConnection)