VBA in OpenOffice

Hallo zusammen,

habe in MS Excel n VBA Script geschrieben welches mir die Arbeit n Stueck erleichtern soll - da wir aber in der Arbeit OpenOffice verwenden wollt ich den Code "einfach" reinkopieren.

Private Sub cmdAdd_Click()

On Error GoTo Mldg
Dim CurrentDB As Database
Dim db As Database
Dim rs As Recordset
Dim strSQL As String
Dim strBest As String
Dim txtBest As String

Set db = CurrentDB()
Database = (xxxxxxxx)
strSQL = "Select * From xxxxxxx Where Bestellnummer = " & Str(strBest)
Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
MsgBox "Bestellnummer :" & rs!Bestellnummer & vbCr & "Empfänger :" & rs!Empfänger
Exit Sub
If txtBest = Bestellnummer Then
MsgBox "Hallo"
End If

Mldg:
Titel = "xxxxxx-Bestellnummern"
MsgBox "Keine xxxxxx-Bestellnummer!"
End Sub

Private Sub cmdDelete_Click()
Unload Me

End Sub

Nur leider macht OO schon bei dem Namen Database schlapp - kennt OO scheinbar nicht den Namen.
Habt ihr ne Idee wie ich das "umwandle" das auch OO es lessen kann?

Und wie kann ich in OO Formulare etc erstellen?

Gruß Manuel