Sub test
()
Dim dbRng As String
dbRng = Sheet1.Range ("contract") .Address (False, False)
Dim Conn As New ADODB .Connection
Conn .Open "Provider=Microsoft .Jet .OleDb .4.0 ;Extended Properties=Excel 8.0 ;Data Source=" & ThisWorkbook . FullName
Dim Rs As New ADODB .Recordset
Rs .Open "select * from [Sheet1$A1 :C3];", Conn, 3, 3
Do While Not Rs .EOF
MsgBox ("Contract [" & Rs ("contract #") & " is created by " & Rs ("borrower Name"))
Rs .MoveNext
Loop
Rs .Close
Set Rs = Nothing
Conn .Close
Set Conn = Nothing
End Sub
Dim dbRng As String
dbRng = Sheet1.Range ("contract") .Address (False, False)
Dim Conn As New ADODB .Connection
Conn .Open "Provider=Microsoft .Jet .OleDb .4.0 ;Extended Properties=Excel 8.0 ;Data Source=" & ThisWorkbook . FullName
Dim Rs As New ADODB .Recordset
Rs .Open "select * from [Sheet1$A1 :C3];", Conn, 3, 3
Do While Not Rs .EOF
MsgBox ("Contract [" & Rs ("contract #") & " is created by " & Rs ("borrower Name"))
Rs .MoveNext
Loop
Rs .Close
Set Rs = Nothing
Conn .Close
Set Conn = Nothing
End Sub