Sample SQL Script to Retrieve ADO Database Record

 

Dim SQLString As String

Dim conn As Object
Dim rs As Object

'Connect to DB with ConnectString
Set conn = CreateObject("ADODB.Connection")
conn.Open "DSN=pubs;UID=sa;PWD="

'Set record select to select specific record

'Select specific from authors table
SQLString = "select * from authors where au_id = '238-95-7766'"

'Create recordset object
Set rs = CreateObject("ADODB.Recordset")
rs.CursorLocation = 2 'Read only
rs.CursorType = 0 'Forward only recordset
rs.Open SQLString, conn ' Run the Query

'Check for end of file. If record found, 
If Not (rs.EOF And rs.BOF) Then 'Data found
  MsgBox rs("au_id")
Else 'No Data Found
  MsgBox "Record not found"
End If

'Close recordset and connection
rs.Close
conn.Close

'Release ADO objects
Set rs = Nothing
Set conn = Nothing