Imports System.Data.SqlClient
Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim conn As SqlConnection
    Dim strSQL As String
    Dim cmd As SqlCommand
    Dim ds As DataSet
    Dim da As SqlDataAdapter
 
#Region " Vom Windows Form Designer generierter Code "
   #End Region
 
    Sub DB_Connection()
 
        Try
 
            conn = New SqlConnection("Data" & _
              "Source=BISTRO-CASH;Database=Northwind;uid=sa;pwd=passwort;Integ" & _
              "ated Security=SSPI")
            cmd = New SqlCommand("Select * from Customers", conn)
            ds = New DataSet
            da = New SqlDataAdapter(cmd)
            da.Fill(ds, "Customers")
            DataGrid1.DataSource = ds.Tables("Customers")
 
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
              MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
        End Try
 
    End Sub
 
End Class