Sub binddata()
 
        Dim _sqlconnString As String = _
          "server=127.0.0.1;database=Intranet;UID=telefon_aend;PWD=telefon_aend"
        Dim _sqlConn As New SqlConnection
        Dim _sqlda As SqlDataAdapter
        Dim _ds As New DataSet
 
 
 
 
 
        _sqlConn.ConnectionString = _sqlconnString
 
        _sqlda = New SqlDataAdapter("Select* From tblSchreinereiTakt ", _
          _sqlConn)
        Dim cdt As DateTime = Now
        Dim cmd As SqlCommand = _sqlda.SelectCommand
        Dim prm As SqlParameter = cmd.Parameters.Add("@t1", SqlDbType.DateTime)
        prm.Value = cdt.AddMinutes(-10)
        prm = cmd.Parameters.Add("@t2", SqlDbType.DateTime)
        prm.Value = cdt.AddMinutes(10)
 
        _sqlda.Fill(_ds, "tblSchreinereiTakt")
        dgBuch.DataSource = _ds.Tables("tblSchreinereiTakt")
    End Sub