Private Sub Command1_Click()
Dim sCName, sCWork, sCAdd, sCFrom As String
sCName = Text1.Text
sCWork = Text2.Text
sCAdd = Text3.Text
sCFrom = Text4.Text
Adodc1.RecordSource = "exec spclientinfo '" & sCName & "','" & sCWork & "','" & sCAdd & "','" & sCFrom & "'"

Adodc1.Refresh
DataGrid1.ClearFields
Set DataGrid1.DataSource = Adodc1
DataGrid1.Columns(0).Caption = "客人序号"
DataGrid1.Columns(1).Caption = "姓名"
DataGrid1.Columns(2).Caption = "性别"
Dim df As New StdDataFormat
df.Type = fmtBooleans
df.FalseValue = "女"
df.TrueValue = "男"

Set DataGrid1.Columns(2).DataFormat = df
DataGrid1.Columns(3).Caption = "年龄"
DataGrid1.Columns(4).Caption = "身份证号码"
DataGrid1.Columns(5).Caption = "家庭地址"
DataGrid1.Columns(6).Caption = "工作单位"
DataGrid1.Columns(7).Caption = "来自何地"
DataGrid1.Columns(8).Caption = "入住时间"
DataGrid1.Columns(9).Caption = "预住天数"
DataGrid1.Columns(10).Caption = "客房号"
DataGrid1.Columns(11).Caption = "离店时间"
DataGrid1.Columns(12).Caption = "押金金额"
DataGrid1.Columns(13).Caption = "住宿费"
DataGrid1.Refresh


End Sub
为什么我的DataGrid1里面没有数据阿，数据库的数据不显示呢

大家帮我啊

Adodc1.RecordSource = "select * from tblClient where cName like '%sCName%' and cWork like '%sCWork%'"
在vb里这个查询语句有错误么

已经解决了，但是为什么，我生成的exe在其他机子上不能用阿，说少了ado.ocx，是ado组件的问题么

从那拷阿

哦