VB中DataGrid问题
我想在程序的一开始，DataGrid不可见，等搜索条件输入点击确定后，DataGrid才可见，以下是程序，但为什么DataGrid始终出不来啊，
Private Sub Command1_Click()
Dim CN As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & appdisk & "gp.dll;Persist Security Info=False"
DataGrid1.Visible = Ture
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select ID as 序号,title as 标题,time as 发布时间,id_main_chinese as 类别 from fzs where title like '%" & Text1.Text & "%' AND id_main = 1 "
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub
----------------------------------------------------------------
Private Sub Form_Load()
DataGrid1.Visible = False
End Sub
没有绑定为什么还要用 控件Adodc1 ？
是不是没数据 把VISIbl去掉试试
Set DataGrid1.DataSource = Adodc1
Adodc1.RecordSource = "select ID as 序号,title as 标题,time as 发布时间,id_main_chinese as 类别 from fzs where title like '%" & Text1.Text & "%' AND id_main = 1 "
Adodc1.Refresh
VB code
Code highlighting produc
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
Private Sub Form_Load()
recs = Adodc1.Recordset.RecordCount '求当前记录数
If recs > 0 Then '已有考生
Adodc1.Recordset.MoveLast '移到最后一条记录
num = V ......
数据库貌似已经连接上了vb，，可是为什么数据库上的数据不能显示在框表中捏？？？
具体的代码？
无码无真相！
你把篮球抱在怀里，就能远投得3分？
麻烦各位大虾了啊。。。
Private Sub Comm1_Click()
& ......
