Dim ConSql As New SqlClient.SqlConnection
ConSql.ConnectionString = "Integrated Security = True;" & "Data Source =" & _
  "localhost;initial Catalog=TestDB;"
ConSql.Open()
 
Dim sqlcmd As New SqlClient.SqlCommand
sqlcmd.Connection = ConSql
sqlcmd.CommandText = "Select username, rule_name from TestDB where RULE_NAME =" & _
  "test123'" 
 
Dim adaptsql As New SqlClient.SqlDataAdapter(sqlcmd.CommandText, ConSql)
Dim datSet As New DataSet
dim datView as New DataView
 
adaptsql.Fill(datSet, "TestTabelle")
datView.Table = datSet.Tables("TestTabelle")
'DGMain = mein datagridview
DGMain.DataSource = datView