VB6打开一个带密码的ACCESS库，出错了，哪位好心人指导一下啊！在线等啊！

Question

我在ACCESS中设的密码是 s
下面是代码：
Private Sub order_form_input_Click()
Dim cn As ADODB.Connectiont_connectionstring = "dsn=ly_orderdata;uid=;pwd=s;"Set cn = New ADODB.Connection
cn.ConnectionString = t_connectionstring
cn.Open
sql1 = "select top 1 work_status from r_area "
Set rss = cn.Execute(sql1)
If rss("work_status") = 0 Then
    MsgBox "already finished !  click OK to exit."
    cn.Close
    Set cn = Nothing
    End
End Ifcn.Close
Set cn = Nothing
daily_order_form_input.Show vbModalEnd Sub
当数据库没有密码时，我的下面的程序是没有问题的：
Private Sub order_form_input_Click()
Dim cn As ADODB.Connectiont_connectionstring = "dsn=ly_orderdata;uid=;pwd=;"Set cn = New ADODB.Connection
cn.ConnectionString = t_connectionstring
cn.Open
sql1 = "select top 1 work_status from r_area "
Set rss = cn.Execute(sql1)
If rss("work_status") = 0 Then
    MsgBox "already finished !  click OK to exit."
    cn.Close
    Set cn = Nothing
    End
End Ifcn.Close
Set cn = Nothing
daily_order_form_input.Show vbModalEnd Sub请指导一下，我在线等

Answer 1

这里有写好的源代码，给你参考一下吧。Public Acc_Conn As New Connection '在声明的地方定义公共变量
Public Sub Conn_Acc()
 On Error GoTo Exit_Err
 Dim str As String str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Txsoft.mdb;" & "Persist Security Info=False;Jet OLEDB:Database Password=txsoft"
 If Acc_Conn.State <> 1 Then
  Acc_Conn.Open str
 End IfExit Sub
Exit_Err:
  MsgBox Err.Description & "(" & Err.Number & ")"
  End
End Sub