Imports System.Data.SqlClient
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    '....
 
    Private _sqlconnString As String = "Server=Metroid\MSDE2k;Integrated" & _
      "Security=SSPI;Database=NORTHWIND"
    Private _sqlConn As New SqlConnection
    Private _sqlDa As SqlDataAdapter
    Private _ds As New DataSet
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        _sqlConn.ConnectionString = _sqlconnString
 
        _sqlDa = New SqlDataAdapter("Select* From Orders Where" & _
          "OrderDate>=@t1 And OrderDate<=@t2", _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, "Orders")
        DataGrid1.DataSource = _ds.Tables("Orders")
 
    End Sub
 
    '....
 
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist