Duda con Datagrid en visual 6.0

[patob]

Pude solucionar. Muestro el codigo de como lo hice por si a alguien le sirve.

Private Sub Command1_Click()
If Me.Text1.Text = "" Then
MsgBox ("Debe ingresar la cantidad")
Else
If rs(3).Value <= 0 Then
MsgBox ("No hay mas stock de este material")
Else
rs(3) = Val(rs(3) - Val(Text1.Text))
rs.Update

Set rs2 = New ADODB.Recordset
rs2.CursorLocation = adUseClient
rs2.Open "INSERT INTO Materiales_Temp (Id,Nombre,Medidas,Cantidad) values( " + rs(0) + " ," + rs(1) + "," + rs(2) + "," + rs(3) + ")", cnn, adOpenStatic, adLockOptimistic

With DataGrid2
.AllowUpdate = False
End With

Call CargarDataGrid(DataGrid2)
End If
End If
End Sub

Solo un detalle. Cuando hago el insert en el rs2 me da un error diciendo que los tipos no coinciden. Sabes que puede ser eso?