我将该db1.mdb用独占方式打开设立了同样的密码:123456,
并在下面粘贴了同样的代码如下:

Private Sub Form_Load()
Text1.Enabled = False
Text2.Enabled = False
...
...
On Error GoTo errHandle
Dim conString As String
conString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & App.Path & "\db1.mdb;Jet OleDb:DataBase Password=123456"

Dim Conn As New ADODB.Connection
Conn.Open conString

Conn.Close
Set Conn = Nothing

Exit Sub

errHandle:
MsgBox Err.Description
Exit Sub

Set Conn = CreateObject("ADODB.Connection")
With Conn
.ConnectionString = conString
.Open
End With

Rst.CursorLocation = adUseClient
Rst.Open "Select * From zymc1", Conn, adOpenKeyset, adLockPessimistic, adCmdText
If Rst.RecordCount > 0 Then
Text1.Text = Rst.Fields("dm").Value
Text2.Text = Rst.Fields("xm").Value
...
...

Else
Text1.Text = ""
Text2.Text = ""
...
...

End If
End Sub

怎么执行后,打开的却是控件图标和控件名称,根本没有显示数据,这怎么回事啊?!!!!!,再打开其他的表,同样也是控件图标和控件名称
我再关闭VB程序,打开ACCESS2000,发现正常,怎么不行了呢?

Dim Conn As New ADODB.Connection
Conn.Open conString

Conn.Close
Set Conn = Nothing

Exit Sub

打开了数据库...又关闭...不知道你想做什么..

把这句给删除掉?
Conn.Close
Set Conn = Nothing

但还是不行啊?

请看这是提供的源代码:

Private Sub Command2_Click() '连接有密码的数据库
On Error GoTo errHandle
Dim conString As String
conString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & App.Path & "\OrdersYes.mdb;Jet OleDb:DataBase Password=123"

Dim Conn As New ADODB.Connection
Conn.Open conString

If Conn.State = adStateOpen Then
MsgBox "数据库已经打开"
Else
MsgBox "数据库没有打开"
End If

Conn.Close
Set Conn = Nothing

Exit Sub

errHandle:
MsgBox Err.Description
Exit Sub
End Sub
上面有这句啊!!

我晕死..我是因为不再使用Conn所以我才关闭它...你仍然要使用..你关闭它干嘛...
你还是买本书来学吧..

purana 你是不是擅长数据库?

On Error GoTo errHandle
Dim conString As String
conString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & App.Path & "\db1.mdb;Jet OleDb:DataBase Password=123456"

Dim Conn As New ADODB.Connection
Conn.Open conString

Rst.CursorLocation = adUseClient
Rst.Open "Select * From zymc1", Conn, adOpenKeyset, adLockPessimistic, adCmdText
If Rst.RecordCount > 0 Then
Text1.Text = Rst.Fields("dm").Value
Text2.Text = Rst.Fields("xm").Value
...
...

Else
Text1.Text = ""
Text2.Text = ""
...
...

End If

Exit Sub

errHandle:
MsgBox Err.Description

Exit Sub

我把两部分换了位置:输入表记录的代码插入到连接加密的代码中间.

就可以了!

但在添加操作中,却又出现了问题!!无法添加!

买本书看吧.

什么书呢?
什么样的书介绍得有如本论坛您提供的优质服务呢?
我买了好些书,但介绍得还是比较简单了!都不肯仔细讲下去,全靠自己的天赋去领悟,我哪有那忒高的天资呢?

目前市面上有很多vb和数据库方面的书....很多...到书店里看看..