Private Sub execNQuery(ByVal cmdText As String)
        Dim conn As New SqlConnection("workstation id=UGCWEB4;packet" & _
          "size=4096;integrated security=SSPI;data source=""UGC" & _
                "WEB-SERVER"";persist security info=False;initial" & _
                "catalog=Adressverwaltung")
        Dim cmd As New SqlCommand
        cmd.Connection = conn
        cmd.CommandText = cmdText
        Try
            conn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        conn.Close()
 
 
        Me.DataSet11 = Nothing
        Me.DataSet11 = New DataSet1
 
 
        SqlDataAdapter1.Fill(DataSet11)
 
        Me.DataGrid1.DataSource = Me.DataSet11.Tables(0)
        DataView1.Table = Nothing
        DataView1.Table = DataSet11.Tables(0)
 
        Call PosAnzeigen()
 
    End Sub
 
 Private Sub PosAnzeigen()
        Me.Label22.Text = _
        (Me.BindingContext(Me.DataView1).Position + 1).ToString _
        & " von " & Me.DataView1.Count
    End Sub
 
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
        Me.BindingContext(Me.DataView1).Position -= 1
        Call PosAnzeigen()
 
    End Sub

Liebe Gr??e
Nicole

Manche geben schneller auf als die anderen.
Ich geh?re zu den anderen.