用vb调用数据库的一个小问题？（在线等待）

Question

select * from 表 where 20<=年龄<=40 or 性别="男" or 工龄="3"

Answer 1

Dim rs As New Recordset
rs.Open "select * from tblname where 20<=年龄<=40 or 性别="男" or 工龄="3", FCData.Cn, adOpenDynamic, adLockOptimistic, adCmdText

Answer 2

假设你的表名为Employee ,其它字段为　姓名 EmpName varchar(20)　　
年龄　EmpAge smallint　WorkAge smalling　
性别 EmpSex bit(1)(默认为男 ）
select * from Employee where (empage>=20and empage<=40)andworkage=3

Answer 3

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