Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim myTable As New DataTable
        Dim myConn As New OleDb.OleDbConnection
        Dim myDA As New OleDb.OleDbDataAdapter
        Dim mySg As New OleDb.OleDbSchemaGuid
 
        With myConn
            .ConnectionString = "Provider=sqloledb.1;Data" & _
              "Source=TERMSRV1;Initial Catalog=Bibliothek_Bem;Integrated" & _
              "Security=SSPI;"
            .Open()
        End With
 
        myTable = myConn.GetOleDbSchemaTable(mySg.Primary_Keys, Nothing)
 
        DataGrid1.DataSource = myTable.DefaultView
 
    End Sub