Private Sub Command2_Click()
Form1.Visible = True
Dim sql_sj As String
Dim cs_jtsj
Dim sj(4) As String
Dim cs_sl As Integer
Dim cs_sl1
Dim DBPath As String
Dim matrix()
Dim b()
Set cs_sj = CreateObject("ADODB.Connection")
DBPath = "D:\Documents and Settings\Administrator\My Documents\城市的评价要素+权数（德尔非法）.mdb"
cs_sj.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
sql_sj = "Select * From 城市的评价要素 where 城市名称=" & Combo2.Text

Data1.RecordSource = cs_sj.Execute(sql_sj)
Data1.Refresh

End Sub

这是我为了连接数据库而写的语句，但是出现了错误！错误内容是参数不足！期望是１！我不知道什么意思！　
我的意图是在ＴＥＸＴ或MSFlexGrid中显示我从ＡＣＣＥＳＳ中调出的　有限制条件的数据！　
之后用数据段　进行之后的运算！　现在我都晕　，就是不对！　我不知道了！怎么作乐　！
谢谢高手了！　

晕！　我现在真的很苦恼！！　就是不会了！我ＶＢ的水平　也很烂！　但是我的毕业设计也要做呀！
我这ＶＢ已经很长时间　不用了！但是简单的还会！一涉及到　数据库我就不会了！
我就想　引用数据库　中的单个数据，之后　进行计算！　
我很急　！可是高手都再那里！！　帮帮忙！！那！！

不要用这种方法连接数据库嘛~~~我有种比较好的
dim conn as string
dim strsql as string
dim rs as new adodb.recordset
启动时请用vb企业版在窗体上加载MSFlexGrid
在load时间 中 编写
conn="provider=sqloledb.1;user id=xx;password=xx;intital cotocal(好像 是 这样 的)=库 名 ；data source=数据 库文件的位置；"
然后
strsql="select "Select * From 城市的评价要素 where 城市名称=" & Combo2.Text"
rs.open strsql,conn,1,3
set MSFlexGrid.datasource=rs
数据库连接完毕
非常简单