老师，自定义的数据源，但是总是有问题，请老师帮忙看下：
Dim str As DataRow = DataTables("配置").DataRows(0)
Dim s As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & str("attch") & ";Persist Security Info=False & "
'GetConfigValue("DataSource","")
Dim form As String = Args(0)
try
Dim conn As ADODB.Connection
conn = New ADODB.Connection
conn.ConnectionString = s
conn.Open
Forms(Form).Text = Forms(Form).Name
Return "True"
conn.close
Catch ex As Exception
Forms(Form).Text = Err.Description
MessageBox.Show("数据库" & Err.Description & "请联系管理员!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
Return "False"
End try
Access 数据源链接字符串是这个：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\111.mdb;Persist Security Info=False
加好友 
发短信
Post By：2015/7/3 7:52:00 [显示全部帖子]
此主题相关图片如下：qq图片20150703075915.png
