[vbnet]

.....

كود :

Dim sql As String = " SELECT * FROM [table2] WHERE (DateDiff(Day, GetDate(), [ud]) <=1) "
Dim da As New SqlDataAdapter(sql, conn)
Dim dt As New DataTable
If da.Fill(dt) > 0 Then
    TextBox3.Text = dt.Rows(0).Item("ud")
    TextBox4.Text = dt.Rows(0).Item("id")
    MsgBox(dt.Rows(0).Item("ud"))
End If

.....