Private Declare Function CharToOem Lib "user32" Alias "CharToOemA" (ByVal lpszSrc As String, ByVal lpszDst As String) As Long


Private Sub Command1_Click()

Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset



Dim strConnect As String

Set GlobalCnxn = New ADODB.Connection



strConnect = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Файлы dBASE;Initial Catalog=c:\1C_conf\dbf\"

GlobalCnxn.Open strConnect


rst.Open "select * from sc174", GlobalCnxn



rst.MoveFirst





Dim sAnsi As String

sAnsi = rst.Fields("Descr").Value

Dim sOem As String

sOem = String(Len(sAnsi), chr(0))

CharToOem sAnsi, sOem



End Sub