Neyse Kimse cevap vermedi ama ben cevabı buldum. İleride belki birinin işine yarayabilir.

Dim ds As New DataSet
Dim randevuzamanı As Date = Date.Today
randevuzamanı = Date.Today & " " & "00:00:00"
tbxbugun.Text = Date.Today & " " & "00:00:00"
ds = Data.fill(CommandType.Text, "select * from notlar where randevu='" & tbxbugun.Text & "'")
If (ds IsNot Nothing) AndAlso (ds.Tables.Count > 0) AndAlso (ds.Tables(0).Rows.Count = 1) Then
Me.tbxhatırlat.Text = ds.Tables(0).Rows(0).Item("randevu").ToString
If tbxhatırlat.Text = tbxbugun.Text Then
Me.tbxfirma.Text = ds.Tables(0).Rows(0).Item("firma").ToString
Me.tbxkisi.Text = ds.Tables(0).Rows(0).Item("ad").ToString
Me.tbxtel.Text = ds.Tables(0).Rows(0).Item("telefon").ToString
Me.tbxtar.Text = ds.Tables(0).Rows(0).Item("tarih").ToString
Me.tbxran.Text = ds.Tables(0).Rows(0).Item("randevu").ToString
Me.tbxkonu.Text = ds.Tables(0).Rows(0).Item("konu").ToString
Me.tbxdetay.Text = ds.Tables(0).Rows(0).Item("detay").ToString
End If
End If