Public Sub OpenDatabase(Optional KeyWord As String, Optional Language As String)
Dim i, j As Integer
Dim oRs As DAO.Recordset
 
    dbFilename = App.Path + "\mdb\" + "MyPrompt20XP_Database.mdb"
    Set db = Workspaces(0).OpenDatabase(dbFilename, False, False)
    Set oRs = db.OpenRecordset("SELECT * FROM command")
 
    If (oRs.RecordCount > 0) Then
        MsgBox oRs.Fields(1).Name                                   // (1)
        While Not oRs.EOF
            RichTextBox1.Text = RichTextBox1.Text + CStr(oRs.Fields( _
              "name").Value) + " oder " + oRs("name") + " | " + CStr(oRs( _
              "icon")) + Chr(13) + Chr(10)
            oRs.MoveNext
        Wend
    End If
    'Form1.Caption = oRs
End Sub