hello..kindly tell what's wrong with my code..

Set adoConnection = New adodb.Connection
Set adoRecordset = New adodb.Recordset
connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\pis.mdb;"
adoConnection.Open connectionString
If adoConnection.State = adStateOpen Then
hold = "'" & txttitle.Text & "%" & "'"
Code:
 sql1 = "Select pro_no,title from Project_Info Inner Join Project_Profile on Project_Profile.pro_no = Project_Info.pro_no And Project_Info.Title Like " & hold
adoRecordset.Open sql1, adoConnection, adOpenKeyset, adLockPessimistic, adCmdText
If Not adoRecordset.RecordCount <> 0 Then
End If
Else
MsgBox "Sorry. The connection could not be opened."
adoConnection.Close
End
End If

what do you mean by that error? join expression not supported.