语句是：Private Sub Command1_Click()
Dim Conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim connect As String
connect = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jchisn;Data Source=JXJXYY"
Set Conn = New ADODB.Connection
Conn.Open connect
Dim SQL As String
If Text1.Text <> "" Then
  DataGrid1.Caption = "已发药品查询信息"
SQL = "select offname '科室',patname '姓名',medname '药品名称',medspec '规格',roomunit '单位',number '数量',roomprice '单价',selfallmoney '金额',exectime '发药时间' from dbo.AdviceListView  where offcode = '" & Trim(Text1.Text) & "'"
Set rs = New ADODB.Recordset
rs.Open SQL, Conn, adOpenStatic
Set DataGrid1.DataSource = rs
'设置列宽
  With DataGrid1
  .Columns(0).Width = 600
  .Columns(1).Width = 750
  .Columns(2).Width = 1500
  .Columns(3).Width = 1200
  .Columns(4).Width = 400
  .Columns(5).Width = 500
  .Columns(6).Width = 800
  .Columns(7).Width = 1500
  .Columns(8).Width = 800
  .Columns(9).Width = 800
  .Columns(10).Width = 2800
  End With
End If
End Sub
却出现错误信息：实时错误信息‘9’下标越界，
调式显示为  .Columns(9).Width = 800
请各位帮我看一下

没有这么多列

谢了，多算了一列