请教一个VB与ACCESS数据库连接的问题，谢谢了
<P>小第想用VB编程把不同组的数据写入数据库不同的表中，部分程序如下，但不行，请问我这段程序错在那了？？？？谢谢！<BR><BR>Private myrs As New ADODB.Recordset<BR>Private mycon As New ADODB.Connection<BR><BR>Dim strConn As String<BR><BR>If st = "59280" Then<BR> <BR>strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\shujuku.mdb;Persist Security Info=False"<BR> <BR>mycon.CursorLocation = adUseClient</P><P>mycon.Open strConn<BR> <BR>myrs.Open "Select * from qywd", mycon, adOpenKeyset, adLockOptimistic</P>
<P>Set DataGrid1.DataSource = myrs</P>
<P>ElseIf st = "59087" Then</P>
<P>strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\shujuku.mdb;Persist Security Info=False"<BR> <BR>mycon.CursorLocation = adUseClient</P>
<P>mycon.Open strConn</P>
<P>myrs.Open "Select * from fgwd", mycon, adOpenKeyset, adLockOptimistic<BR><BR>Set DataGrid1.DataSource = myrs<BR><BR>End If</P>
页:
[1]