VB中DataGrid有关问题

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

------解决方案--------------------
当它不显示时（多数在程序出错后），你用以下方式试试

DataGrid1.Visible = 1 '数字一