Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
        Try
 
            con.ConnectionString = _
              "Server=BESITZER-PC\SQLEXPRESS;Database=G:\1_JÄGER\JÄGERPRÜFUNG_" & _
              "PPLICATION_VERS_I\JÄGERPRÜFUNG_VERS_I\DATABASE1.MDF;Integrated" & _
              "Security=true"
 
            con.Open()
 
        Catch ex As Exception
 
        End Try
 
        Dim strSQL As String = "SELECT" & _
          "Frage,A,antw_A,B,antw_B,C,antw_C,D,antw_D,S_1 FROM dbo.Sachgebiet_1" & _
          "Where Fragen_ID=5"
 
                Dim cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand( _
                  strSQL, con)
 
        Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader()
 
        Do While (dr.Read())
 
            Console.WriteLine(dr("Frage"), dr("A"), dr("antw_A"), dr("B"), dr( _
              "antw_B"), dr("C"), dr("antw_C"), dr("D"), dr("ant_D"), dr("S_1"))
 
        Loop
 
 
        dr.Close()
        con.Close()
    End Sub

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