Dim cmd As New ADODB.Command, rec As New Recordset
With cmd
  .ActiveConnection = DBConn
  .CommandType = adCmdStoredProc
  .CommandText = "meineAbfrage"
  .Parameters.Append cParam("@iMeinParameter", adInteger, meinParameter)
  Set rec = .Execute
End With
 
Public Function cParam(pName As String, pType As ADODB.DataTypeEnum, _
                pVal As Object, Optional pSize As Integer = 0) As _
                ADODB.Parameter
  Dim pTemp As New ADODB.Parameter
  With pTemp
    .Type = pType 
    .Name = pName
    If pSize > 0 Then .Size = pSize
    .Value = pVal
  End With
  cParam = pTemp
End Function

 Dim cmd As New OleDbCommand, reader As OleDbDataReader
    With cmd
      .Connection = DBConn
      .CommandType = CommandType.StoredProcedure
      .CommandText = "meineAbfrage"
 
      'hier such ich eine analogie zu: .Parameters.Append 
 
      reader = .ExecuteReader()
 
    End With