急用!求VB连接ACCESS详解,怎样设置,源代码,万分感谢!

急用!求VB连接ACCESS详解,怎样设置,源代码,万分感谢!

Public Function executesql1(ByVal sql As String) As ADODB.Recordset Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim cmd As String cmd = "provider=microsoft.jet.oledb.4.0;" & "data source=" & App.path & "\..\data\wrwtj.mdb;" Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset With cnn .ConnectionString = cmd .Open End With With rst .Open sql, cnn, adOpenKeyset, adLockOptimistic Set executesql1 = rst End With Set rst = Nothing Set cnn = Nothing End Function 你把段代码放到模块中去吧！到时调用就可以了！ 有问题再问我！ QQ：87756658

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息