Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
        Dim strConnection As String = "Data" & _
          "Source=XXXXXXXXXX\SQLEXPRESS;Initial Catalog=XXXXXXXX;User" & _
          "ID=xx;Password=xxxxxx;"
        Dim objConnection As New SqlConnection(strConnection)
 
 
 
Dim DatumHeute As DateTime = System.DateTime.Now.Day.ToString & "/" & _
  System.DateTime.Now.Month.ToString & "/" & System.DateTime.Now.Year.ToString _
  & " " & System.DateTime.Now.Hour.ToString & ": " & _
  System.DateTime.Now.Minute.ToString & ":" & _
  System.DateTime.Now.Second.ToString
Dim DateTimeFormat As DateTimeFormatInfo = (New CultureInfo( _
"en-US")).DateTimeFormat
 
        Dim Date1 As New Date(2011, 9, 29, 0, 0, 0)
        Dim Date2 As New Date(2011, 9, 29, 23, 59, 59)
 
        Dim objCommand As New SqlCommand(strSQL, objConnection)
 
        objConnection.Open()
 
        MsgBox("ServerVersion: " & objConnection.ServerVersion & vbCrLf & _
          "Datasource: " & objConnection.DataSource & vbCrLf & "Database: " & _
          objConnection.Database)
 
        Dim DataAdapter As New SqlDataAdapter(strSQL, objConnection)
        Dim DSet As New DataSet()
 
        DataAdapter.Fill(DSet, "FAUF-Nr")
 
        DataGridView1.DataSource = DSet
        DataGridView1.DataMember = "FAUF-Nr"
 
        objConnection.Close()
 
 
 
    End Sub