'Parametrisierte Abfrage der Testtabelle
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        Dim con As SqlConnection = GetConnection()
        Dim sql As String = "select NID,Name,Passwort from dbo.tbl_01 where" & _
          "Gruppe = @Gruppe"
        Dim cmd As SqlCommand = New SqlCommand(sql, con)
 
        'Parameter deffinieren
        cmd.Parameters.Add("@Gruppe", SqlDbType.NChar, 10)
 
        'Parameter füllen
        cmd.Parameters("@Gruppe").Value = "FA"
 
        'Komando ausführen
        Dim sdr As SqlDataReader = cmd.ExecuteReader
 
        'Datensätze anzeigen
        If sdr.HasRows Then
            Do While sdr.Read()
                Console.WriteLine(vbTab & "{0}" & vbTab & "{1}", sdr.GetInt32( _
                  0), sdr.GetString(1))
            Loop
        Else
            Console.WriteLine("Keine rows ")
        End If
 
        sdr.Close()
        con.Close()
 
 
 
    End Sub

 'Datensätze anzeigen
        If sdr.HasRows Then
            Do While sdr.Read()
                Console.WriteLine(vbTab & "{0}" & vbTab & "{1}"  & vbTab & _
                  "{2}", _
sdr.GetInt32(0), sdr.GetString(1),sdr.GetString(2))
            Loop
        Else
            Console.WriteLine("Keine rows ")
        End If

der Hund ist Dir im Sturme treu - der Mensch nicht mal im Winde
\"Kampfhunde\" Liebhaber