'退出系统
Sub AccessFormatToMem(FileName As String)
Dim str1 As String * 12
' Open FileName For Binary Access Read As #1
' Get #1, 5, str1
' Debug.Print FileName & " " & str1 & " " & Len(Trim(str1))
' Close #1
Open FileName For Binary Access Write As #1
str1 = " " 'Standard Jet
Put #1, 5, str1
Close #1
End Sub
'进入系统
Sub MemFormatToAccess(FileName As String)
Dim str1 As String * 12
' Open FileName For Binary Access Read As #1
' Get #1, 5, str1
' 'Debug.Print str1 & " " & Len(Trim(str1))
' Close #1