请教datagrid问题

Private Sub Command2_Click()

Dim conn As New ADODB.Connection

Dim strc As String

strc = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=erp;Data Source=127.0.0.1"

conn.Open strc



Dim strsql As String

MsgBox (ss(2))

'strsql = "insert into tt(cinvname,cinvstd) values (" & ss(1) & "," & ss(2) & ")"

'conn.Execute (strsql)



End Sub



Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

bm = DataGrid1.Row

k = DataGrid1.Columns.Count

For ic = 0 To k - 1

ReDim ss(ic)

DataGrid1.Row = bm

DataGrid1.Col = ic

ss(ic) = DataGrid1.Text



MsgBox (ss(ic))



Next ic



End Sub