帮忙看看错在哪里！

Question

Public Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset  '该函数用来判断
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.ConnectionString = connstring
cnn.Open
Dim stokens() As String
On Error GoTo exectuesql_error
stokens = Split(sql)
If InStr("INSER,DELETE,UPDATE", UCase(stokens(0))) Then
      cnn.Execute sql
Else
  Set rs = New ADODB.Recordset
  rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
 Set ExecuteSQL = rs
End If
exectuesql_exit:
  Set rs = Nothing
  Set cnn = Nothing
  Exit Function
exectuesql_error:
  Resume exectuesql_exit
End FunctionPublic Function connstring() As Stringconnstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "/ut1000.mdb"End Function
Private Sub Form_Load()
Dim sql As String
sql = "select * from jjname"
Set rs = ExecuteSQL(sql)
Set MSHFlexGrid1.Recordset = rsFileCopy App.Path & "\ut1000.mdb", "e:\or.mdb"  ‘出错：拒绝的权限
End Sub

Answer 1

Private Sub Form_Load()
Dim sql As String
sql = "select * from jjname"
Set rs = ExecuteSQL(sql)
Set MSHFlexGrid1.Recordset = rs
set rs=nothing
FileCopy App.Path & "\ut1000.mdb", "e:\or.mdb"  ‘出错：拒绝的权限
End Sub

Answer 2

Private Sub Form_Load()
Dim sql As String
FileCopy App.Path & "\ut1000.mdb", "e:\or.mdb"  ‘出错：拒绝的权限sql = "select * from jjname"
Set rs = ExecuteSQL(sql)
Set MSHFlexGrid1.Recordset = rsEnd Sub

Answer 3

Dim cnn As ADODB.Connection
Dim rs As ADODB.RecordsetPublic Function ExecuteSQL(ByVal sql As String) As ADODB.Recordset  '该函数用来判断
    Set cnn = New ADODB.Connection
    cnn.ConnectionString = connstring
    cnn.Open
    Dim stokens() As String
    On Error GoTo exectuesql_error
    Set rs = New ADODB.Recordset
    rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
    Set ExecuteSQL = rs
exectuesql_exit:
    Exit Function
exectuesql_error:
    Resume exectuesql_exit
End FunctionPublic Function connstring() As String
    connstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "\aaa.mdb"
End Function
Private Sub Form_Load()
    Dim sql As String
    sql = "select * from table1"
    Set rs = ExecuteSQL(sql)
    Set MSHFlexGrid1.Recordset = rs
    rs.Close
    cnn.Close
    FileCopy App.Path & "\aaa.mdb", "e:\or.mdb"
End Sub

Answer 4

connstring = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "\ut1000.mdb"