Imports System.Data.SqlClient
 
 
Module Module1
 
    Sub Main()
 
        Dim con As New SqlConnection
 
        con.ConnectionString = "Data Source=(local);" & "Initial" & _
          "Catalog=Fussball;" & "Trusted_Connection=yes"
 
        Try
 
 
            con.Open()
        Catch ex As Exception
            Console.WriteLine("{0}", ex.Message)
        End Try
 
 
 
 
        Dim cmd As New SqlCommand
 
        cmd.CommandText = "Select ID, Verein FROM VEREINE"
        cmd.Connection = con
 
 
 
 
        Dim dr As SqlDataReader = cmd.ExecuteReader()
 
        Do While (dr.Read())
 
            Console.WriteLine("{0}{1}", dr("ID"), dr("Verein"))
        Loop
        dr.Close()
 
 
 
 
        con.Close()
 
 
    End Sub
 
End Module

Gru?

RollingStones