Dim objDataReader As SqlClient.SqlDataReader
        Dim objCommandBuilder As SqlClient.SqlCommandBuilder
        Dim objDataSet As New DataSet
        Dim objDataView As DataView
 
        gv_cnn = New SqlClient.SqlConnection(gc_SQL_CONNECT)
        gv_cnn.Open()
        sSql = "select * from TEST_RUSSO"
        gv_Adapter = New SqlClient.SqlDataAdapter(sSql, gv_cnn)
        objCommandBuilder = New SqlClient.SqlCommandBuilder(gv_Adapter) 'dem 
        ' DataAdapter einen CommandBuilder zuweissen der 
        'die restlichen Commands erzeugt(InsertCommand, UpdateCommand und 
        ' DeleteCommand)
 
        gv_Adapter.Fill(objDataSet) 'das DataSet füllen
        objDataView = objDataSet.Tables(0).DefaultView
 
        'eine TextBox an einen Datenfeld binden
        'der erste parameter ist die eigenschaft des TextFeldes 
        'der 2 parameter ist die DataSource
        'der 3 parameter ist der name des feldes in der DB
        TextBox1.DataBindings.Add("Text", objDataView, "A")
 
        'so kannst direkt der Texteigenschaft einen wert zuweissen
        TextBox1.Text = objDataView.Item(BindingContext( _
          objDataView).Position).Item("A")
        'alle datensätze auslesen
        For i As Integer = 0 To objDataView.Count - 1
            MsgBox(objDataView.Item(i).Item("A"))
        Next
 
        'wenn du ohne dataset die daten auslesen willst
        With gv_cnn.CreateCommand
            .CommandText = "select * from TEST_RUSSO"
            If gv_cnn.State = ConnectionState.Closed Then gv_cnn.Open()
            objDataReader = .ExecuteReader
        End With
        'folgende whileschleife geht mit Read alle datensätze durch
        While objDataReader.Read
            MsgBox(objDataReader.Item("A"))
        End While
        objDataReader.Close()
 
'so kannst auch einen neuen datensatz hinzufügen
        With gv_cnn.CreateCommand
            .CommandText = "insert into TEST_RUSSO (A,B,C) values (" & _
              "'Francesco','Russo','Frankfurt')"
            If gv_cnn.State = ConnectionState.Closed Then gv_cnn.Open()
            .ExecuteNonQuery()
        End With