初入贴吧。。求教个问题。

“select * from 表名 where 月='“+text1.text+”'”

Jet4 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb;Persist Security Info=False"
Dim xx%, Ss$
Adodc1.ConnectionString = Jet4
Adodc1.ConnectionTimeout = 5
Ss = "select * from [定时表] where [" & Ktmp & "]='选' and [方案]='" & Combo1.Text & "' order by 预定时间"
Adodc1.RecordSource = Ss
Adodc1.Refresh

非常感谢。

If Adodc1.Recordset.RecordCount > 0 Then
xx = 0
Do While Not Adodc1.Recordset.EOF
xx = xx + 1
.AddItem ""
.TextMatrix(xx, 0) = xx
.TextMatrix(xx, 1) = "" & Format(Adodc1.Recordset!预定时间, "hh:mm:ss")
.TextMatrix(xx, 2) = "" & Adodc1.Recordset!延续时间
.TextMatrix(xx, 3) = "" & Adodc1.Recordset!连放次数
.TextMatrix(xx, 4) = "" & Adodc1.Recordset!显示内容
If InStr(Adodc1.Recordset!音效名称, ".dat") > 0 Then
.TextMatrix(xx, 5) = GetMusicName(Adodc1.Recordset!音效名称)
Else
.TextMatrix(xx, 5) = "" & Adodc1.Recordset!音效名称
End If
.TextMatrix(xx, 6) = "" & Adodc1.Recordset!音量
.TextMatrix(xx, 7) = "" & Adodc1.Recordset!方案
.TextMatrix(xx, 8) = "" & Adodc1.Recordset.Fields(Ktmp)
Adodc1.Recordset.MoveNext
Loop
End If
Adodc1.Recordset.Close

再请教个问题。。我从execl中导一个表进acess。。如何限定导进acess的字段为数字格式了？