Dim rs As ADODB.Recordset
 
Set rs = New Recordset
 
With rs
 
    Set .ActiveConnection = conmdb
    .CursorLocation = adUseClient
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Source = "SELECT * FROM Programm_tbl;"
    .Open Options:=adCmdText
 
End With