Code:
Private Sub btnProcess_Click()
Set cnn = New ADODB.Connection
Set rx = New ADODB.Recordset
Dim sql As String, sq2 As String
Dim r As DAO.Recordset
sq2$ = "SELECT CDTRacks.TTrack, CDTracks.TSingle, CDTracks.TTitle"
sq2$ = sq2$ & " FROM CDTRacks"
sq2$ = sq2$ & " WHERE (((CDTRacks.TCat)=" & ThisDisk()
sq2$ = sq2$ & ")) ORDER BY CDTRacks.TTrack;"
Set r = CurrentDb.OpenRecordset(sq2$)
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & "\\JOHN\Desktop\Build11.mdb"
cnn.Open
r.MoveFirst
Do
sql$ = "SELECT AComment, Title FROM tblMain4"
sql$ = sql$ & " WHERE Title = "
sql$ = sql$ & Chr$(34) & r!TTitle & Chr$(34)
With rx
.Open sql$, cnn, adOpenStatic, adLockReadOnly
'Debug.Print .RecordCount
.Close
End With
r.MoveNext
Loop Until r.EOF
cnn.Close
r.Close
Set r = Nothing
Set rx = Nothing
Set cnn = Nothing
MsgBox "Done"
End Sub
that's then end of it. Otherwise gets to "Done". Any suggestions?