Dim oCmd As New ADODB.Command
   Dim oRSCmd As ADODB.Recordset
   Dim lRet As Long
 
 
   With oCmd
      ' Das Command Objekt vorbesetzen
      .ActiveConnection = cConn
      .CommandText = "exec sp_DeineProcedure..."
 
      ' Rollback sicherstellen
      cConn.BeginTrans
      ' Anweisung ausführen
      Set oRSCmd = .Execute(lRet)
      ' Wenn kein Fehler, dann übernehmen
      cConn.CommitTrans
 
   End With
 
   MsgBox "Records affected: " & CStr(lRet)

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control