Set db = Workspaces(0).OpenDatabase(dbFilename, False, False)
 Set oRs = db.OpenRecordset("SELECT * FROM language")
 If (oRs.RecordCount > 0) Then
        While (Not oRs.EOF) Or (oRs.Fields(1).Value = "html")            
              RichTextBox1.Text = RichTextBox1.Text + CStr(oRs.Fields(1).Value) _
                + " oder " + " | " + Chr(13) + Chr(10)
            oRs.MoveNext
        Wend
        If (oRs.Field(1).Value = "html") Then
        ....
        End If
    End If