QUOTE
Set sqlcnn1 = New ADODB.Connection
Set sqlrst1 = New ADODB.Recordset
sqlcnn1.Open "PROVIDER = MSDASQL;driver={SQL Server};database=ReservationHS ;server=10.10.10.10;uid=sa;pwd=abc@123#;"
sqlrst1.Open "select * from ReservationTBL where AppointmentNo = 'APP00001'", sqlcnn1, adOpenStatic, adOpenStatic, adCmdText
If sqlrst1.EOF = False Then
MsgBox sqlrst1!AppointmentDate
End If
sqlrst1.Close
sqlcnn1.Close
This post has been edited by godjai: Jul 27 2016, 03:13 PMSet sqlrst1 = New ADODB.Recordset
sqlcnn1.Open "PROVIDER = MSDASQL;driver={SQL Server};database=ReservationHS ;server=10.10.10.10;uid=sa;pwd=abc@123#;"
sqlrst1.Open "select * from ReservationTBL where AppointmentNo = 'APP00001'", sqlcnn1, adOpenStatic, adOpenStatic, adCmdText
If sqlrst1.EOF = False Then
MsgBox sqlrst1!AppointmentDate
End If
sqlrst1.Close
sqlcnn1.Close