Dim adoCnn_1 As ADODB.Connection
Dim adoRst_1 As ADODB.Recordset
Dim strSql_1 As String
Dim strProvider_1 As String
Dim dd As stockt
Set adoCnn_1 = New ADODB.Connection
Set adoRst_1 = New ADODB.Recordset
'DBNAME是数据库的名字
strProvider_1 = "provider=microsoft.jet.oledb.4.0; data source=" & App.Path & "\DBNAME"
adoCnn_1.Open strProvider_1
'TABLE_NAME是表的名字
strSql_1 = "select * from TABLE_NAME where 性别=" & """男"""
& " OR 工龄=3"
adoRst_1.Open strSql_1, adoCnn_1, adOpenKeyset, adLockOptimistic