Private Sub Command11_Click()
'密码15161218108
'*****************
Dim Cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim Sql As String, CnStr As String
Dim MsgTxt As String
CnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\TKK.mdb;Jet OleDb:DataBase Password=15161218108"
Sql = "select * from TMINFO"
Set Cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Open App.Path & "\Tkk.txt" For Output As #1 '建立一个文本文件
Cn.Open CnStr
Rs.Open Sql, Cn
For i = 0 To Rs.Fields.Count - 1
Print #1, Rs.Fields.Item(i).Name; ","; '写入字段名
Next
Print #1,
Do While Not Rs.EOF
For i = 0 To Rs.Fields.Count - 1
Print #1, Rs.Fields(i) & ""; ","; '写入数据
Next
Print #1,
Rs.MoveNext
Loop
Close #1
Rs.Close
Cn.Close
' Set Rs = ExecuteSQL(Sql, MsgTxt)
' If InStr(MsgTxt, "错误") Then
' MsgBox MsgTxt
' Exit Sub
' End If
'**************************
End Sub