Dim objDB As ADODB.Connection
    Dim objRs As ADODB.Recordset
    Dim strServer As String
    Dim strBearbeiter As String
    Dim strPasswort As String
 
    strServer = "server"
    strBearbeiter = "benutzer"
    strPasswort = "passwort"
 
    Set objDB = New ADODB.Connection
    objDB.Open "DRIVER={Remedy ODBC Driver};ARServer=" + strServer + ";UID=" + _
      strBearbeiter + ";PWD=" + strPasswort + _
      ";ARDiaryDescend=1;ARUseUnderscores=1;ARNameReplace=1;SERVER=NotTheServer"
    strSQL = "SELECT * "
    strSQL = strSQL + "FROM TestSchema"
 
    Set objRs = objDB.Execute(strSQL)
 
    Do While Not objRs.EOF
        MsgBox "Kurzbeschreibung: " + objRs.Fields("Kurzbeschreibung")
        objRs.MoveNext
    Loop

    Set objRs = New ADODB.Recordset
 
    objRs.Open "TestSchema", objDB
 
    objRs.AddNew
    objRs.Fields("Submitter") = strBearbeiter
    objRs.Fields("Kurzbeschreibung") = "Irgendein Test-Text"
    objRs.Update

corsa(r)

"Zwei Dinge sind unendlich: Das Universum und die
menschliche Dummheit. Aber bei dem Universum
bin ich mir noch nicht ganz sicher."
(Albert Einstein)