Public Class Form1
 
    Private oCON As SqlClient.SqlConnection
    Private osqlcmd As SqlClient.SqlCommand
    Private oDataset As New DataSet("Customers")
    Private oAdapter As SqlClient.SqlDataAdapter
 
    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        oCON = New SqlClient.SqlConnection("server=" & tbServer.Text & ";" & _
        "database=" & tbDatenbank.Text & "; Integrated Security=True")        
        Try
            oCON.Open()
            osqlcmd = New SqlClient.SqlCommand(tbSqlAbfrage.Text, oCON)
            oAdapter = New SqlClient.SqlDataAdapter(osqlcmd)
            oAdapter.Fill(oDataset, "Customers")
            Me.dgv.DataSource = oDataset.Tables("Customers")
        Catch ex As Exception
            MessageBox.Show("Datenbankfehler!" & vbTab & ex.Message)
        Finally
            oCON.Close()
        End Try
 
    End Sub
 
    'Änderungen Speichern, aber wie???
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Try
            oCON.Open()
            oAdapter.Update(oDataset, "Customers")
        Catch ex As Exception
            MessageBox.Show("Fehler beim Update!" & vbTab & ex.Message)
        Finally
            oCON.Close()
        End Try
 
    End Sub
End Class