Dim str1 As String = "" sql = "ดึงข้อมูลวันที่มานะคับ"
Da = New SqlDataAdapter(sql, cn)
DtCheck = New DataTable
Da.Fill(DtCheck )
If DtCheck .Rows.Count > 0 Then
For i As Integer = 0 To DtCheck .Rows.Count - 1
str1 = DtCheck .Rows(i)("ชื่อตัวแปรในฐานข้อมูล")
If str1.Trim = DateTimePicker วันที่ปัจจุบัน Then
Msgbox("ได้ทำการฝากเงินไปแล้วในเดือนนี้")
Exit Sub
Else
End If
Next
Else
End If