小第想用VB编程把不同组的数据写入数据库不同的表中，部分程序如下，但不行，请问我这段程序错在那了？？？？谢谢！

Private myrs As New ADODB.Recordset
Private mycon As New ADODB.Connection

Dim strConn As String

If st = "59280" Then

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\shujuku.mdb;Persist Security Info=False"

mycon.CursorLocation = adUseClient

mycon.Open strConn

myrs.Open "Select * from qywd", mycon, adOpenKeyset, adLockOptimistic

Set DataGrid1.DataSource = myrs

ElseIf st = "59087" Then

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\shujuku.mdb;Persist Security Info=False"

mycon.CursorLocation = adUseClient

mycon.Open strConn

myrs.Open "Select * from fgwd", mycon, adOpenKeyset, adLockOptimistic

Set DataGrid1.DataSource = myrs

End If