Wanneer u een reeks opdrachten uitvoert met ADODB, geloof ik dat deze elk afzonderlijk worden uitgevoerd. Om de volgende opdracht te forceren, moet je het volgende gebruiken:
Set rs = rs.NextRecordset()
Het einde van je routine veranderen in het volgende zou de slag moeten slaan:
Set rs = New ADODB.Recordset
rs.Open SQLStr, cn, adOpenKeyset, adLockOptimistic
Set rs = rs.NextRecordset
MsgBox (rs.Fields(0).Value)