Ich glaube, alles, was Sie brauchen, ist dies Dim Rst As ADODB.Recordset und das Set Rst = cmd.Execute