Dim astr As String

    astr = Dir("d:\lzzl\*.*")

    If astr <> "" Then Kill "d:\lzzl\*.*"

    .SaveToFile List1.Text

  End With

  iStm.Close

    Call Shellfile(List1.Text) 'rs0!存放路径 & rs0!资料名)

  Rs1.Close

Else

  MsgBox "请注意！您没有选择需要打开的文件！", vbOKOnly + vbCritical, "提示"

End If

End Sub

Private Sub Form_Load()

Set cn0 = New ADODB.Connection

strcn0 = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=lzzl;Initial Catalog=" & App.Path & "\DateBase"

cn0.Open strcn0

Set rs0 = New ADODB.Recordset

Set rs0.ActiveConnection = cn0

rs0.CursorType = adOpenKeyset

rs0.LockType = adLockBatchOptimistic

Set Rs1 = New ADODB.Recordset

Set Rs1.ActiveConnection = cn0

Rs1.CursorType = adOpenKeyset

Rs1.LockType = adLockBatchOptimistic

End Sub