you can do it in many ways. but try this one
Dim result as string
Dim Conn As New SqlClient.SqlConnection
Conn = New SqlConnection("Data Source=VS15IIS01; Initial Catalog=Maintenance;User ID=sa;Password=Password;")
Conn.Open()
Dim str as String = "SELECT TEST_DATE FROM GeneratorHealthCheck WHERE CONVERT(date,TEST_DATE) = CONVERT(date,getdate())"
Dim cmd as new sqlCommand(str, Conn)
Dim dr as New SQLDataReader
dr = cmd.executeReader
if dr.hasRows then
dr.read()
result = dr("TEST_DATE").ToString
End If
If result <> nothing Then
MsgBox("Done")
Else
MsgBox("Not Done")
End If
conn.close()
i am sure this would work for you.