module1.bas

我做的可以查询身份证的源码

Attribute VB_Name = "Module1"



Public Function TransactSQL(ByVal sql As String) As ADODB.Recordset
 Dim con As ADODB.Connection
 Dim rs As ADODB.Recordset
 Dim strConnection As String
 Dim strArray() As String
 Set con = New ADODB.Connection
 Set rs = New ADODB.Recordset
   strConnection = "provider=Microsoft.Jet.OLEDB.4.0;Data source =" & App.Path & "\sjfile.dll"
   strArray = Split(sql)
   con.Open strConnection
   rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic
   Set TransactSQL = rs
   con.Execute sql
End Function