Dim strSQL As String
strSQL = "SELECT field1, field2, field3 "
strSQL = strSQL & "FROM tblName1 "
strSQL = strSQL & "INNER JOIN tblName2 "
strSQL = strSQL & "ON tblName1.field1 = tblName2.field2 "
strSQL = strSQL & "WHERE field4 = 42"
rst.Open strSQL