Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button8.Click
        Dim i As Integer
        Dim strSQL As String
 
        Dim sqlcon As SqlConnection = New SqlConnection("data source =" & _
          "XXXXX-YYYYYYY ; packet size=4096 ; integrated" & _
          "security=SSPI;workstation id= XXXXX-YYYYYYY ; initial" & _
          "catalog=Statistik;persist security info=False")
 
        sqlcon.Open()
 
        For i = 1 To 100 'AnzahlReihen3
 
            strSQL = "SELECT ID, Anzahl FROM typ1 where ID = " & i.ToString
            Dim oSQLCmd As SqlClient.SqlCommand = New SqlCommand(strSQL, sqlcon)
            Dim oReader As SqlClient.SqlDataReader = oSQLCmd.ExecuteReader
 
            If oReader.RecordsAffected = -1 Then
                ListBox4.Items.Add("Row not found! : " + i.ToString)
 
                Dim strinsert As String = "INSERT Into typ1 Values(i,1)"
                Dim SQLcom As New SqlCommand(strinsert, sqlcon)
            Else
                ListBox4.Items.Add(oReader.Item(0) + " " + oReader.Item(1))
                Dim strupdate As String = "UPDATE typ1 Values(i, cint(" & _
                  "oReader.Item(1))+ 1 )"
                Dim SQLcom As New SqlCommand(strupdate, sqlcon)
            End If
            oReader.Close()
 
        Next
        sqlcon.Close()
 
    End Sub

Nichts ist unm?glich mit .net !