情况是这样的  刚刚接触VB 语言基础也不好
但是我想实现这样一个功能使用一个command控件 点击后 弹出新的附有TDBgrid的窗口 显示出某个产品的信息 共有3个栏位 都是存于Oracle数据库中的信息 需要使用SQL语句 以及XAarrayDB来进行承载以及连接 但是网上关于TDBGrid 的用法好像很不全  代码如下 
Private Sub Cmd1_Click()
 
    If optDataType(1).Value = False Then
    MsgBox "叫匡拒块Panel_id!!", vbCritical
    
    Else
    If TxtInput.Text = "" Then
      MsgBox "叫块Panel_id!!", vbCritical
Else
   
 Load Form1
 Form1.Show
 Dim cmsql As String
 Dim xarry As New XArrayDB
 Dim cmmts As ADODB.RecordSet
 Set cmmts = GetRecordSet(cmsql, cnnWIP)
 
      cmsql = "select oper,comments,trans_date from wp_pnlhist where pnl_id = " & TxtInput.Text & ""
  xarry(xarry.UpperBound(1), 6) = Trim("" & cmmts!OPER)
       
  xarry(xarry.UpperBound(1), 6) = Trim("" & cmmts!Comments)
       
  xarry(xarry.UpperBound(1), 6) = Trim("" & cmmts!TRANS_DATE)
       
       
End If
End If
End Sub If optDataType(1).Value = False Then
    MsgBox "请选择并输入Panel_id!!", vbCritical
    
    Else
    If TxtInput.Text = "" Then
      MsgBox "请输入Panel_id!!", vbCritical
Else
   
 Load Form1
 Form1.Show
 Dim cmsql As String
 Dim xarry As New XArrayDB
 Dim cmmts As ADODB.RecordSet
 Set cmmts = GetRecordSet(cmsql, cnnWIP)
 c = xarry.UpperBound(1)
      
    cmsql = "select oper,comments,trans_date from wp_pnlhist where pnl_id = " & TxtInput.Text & ""
  
  xarry(c, 0) = Trim("" & cmmts!OPER)
  xarry(c, 1) = Trim("" & cmmts!Comments)
  xarry(c, 2) = Trim("" & cmmts!TRANS_DATE)
       
       
End If
End If跪求高手给个详细的答案 谢谢