راهنمایی در رفع مشکل با فونت فارسی

[dmax2328]

سلام و خسته نباشید

من یک برنامه آپ کردم که سورسش اینه




Dim SQL As String
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db.mdb;Persist Security Info=False"
Adodc1.RecordSource = "SELECT * FROM T1"
Adodc1.Refresh
End Sub
Private Sub Text1_Change()
SQL = "SELECT * FROM T1 WHERE Left(Name," & Len(Text1) & ")='" & Trim(Text1) & "'"
Adodc1.RecordSource = SQL
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
Adodc1.RecordSource = "SELECT * FROM T1"
Adodc1.Refresh
End If
End Sub
اما برای فونت فارسی جواب نمی ده
لطفا راهنمایی کنید ممنون