Private Sub Form_Load()
Dim db As Database, rs As Recordset
Set db = OpenDatabase("C:\Temp\LANGUAGE_20060406.mdb")
Set rs = db.OpenRecordset("RU")
' Russisch, Charset=204, LocaleID=&h419
Text1.Font.Name = "Arial"
Text1.Font.Charset = 204
Text1.Text = Text_UnicodeConverted(rs!RU, &H419)
 
Label1.Font.Name = "Arial"
Label1.Font.Charset = 204
 
Label1.Caption = Text_UnicodeConverted(rs!RU, &H419)
rs.Close
Set rs = Nothing
 
' Polnisch, Charset=0,  LocaleID=&h415
Set rs = db.OpenRecordset("Select * FROM PL WHERE TextID=-102")
Text1.Font.Name = "Arial"
Text1.Font.Charset = 0
Text1.Text = Text_UnicodeConverted(rs!PL, &H415)
 
Label1.Font.Name = "Arial"
Label1.Font.Charset = 0
 
Label1.Caption = Text_UnicodeConverted(rs!PL, &H415)
rs.Close
 
Set rs = Nothing
 
 
db.Close
Set db = Nothing
End Sub
Private Function Text_UnicodeConverted(Text As String, mLanguageCode) As String
Text_UnicodeConverted = StrConv(StrConv(Text, vbFromUnicode, mLanguageCode), _
  vbUnicode)
End Function