Visual Basic - PROBLEMAS CON INSERT SQL

TENGO LA SIG. SENTENCIA EN LA CUAL QUIERO AGREGAR TODOS LOS DATOS DE UN GRID A UNA BASE DE DATOS:

For i = 1 To Griddatos.Rows - 1
bus = "insert into temp_PROD (CLAVE,DESCRIPCION,TIPO,CAPACIDAD,PRECIOP, PRECIOM, PRECIOR) values ('" & Griddatos.TextMatrix(i, 0) & "', '" & Griddatos.TextMatrix(i, 1) & "','" & Griddatos.TextMatrix(i, 2) & "', '" & Griddatos.TextMatrix(i, 3) & "','" & Griddatos.TextMatrix(i, 4) & "','" & Griddatos.TextMatrix(i, 5) & "','" & Griddatos.TextMatrix(i, 6) & "')"
Fraiche.Execute (bus)
Next i

LO QUE PASA ES QUE HAY CELDAS EN EL GRID DONDE NO HAY NINGUN DATO, ENTONCES LOS REGISTROS DONDE DEBE APARECER EL CAMPO VACIO NO LOS INSERTA.

AYUDA POR FAVOR
URGEEER!!!!

podes hacer un control antes de guardar con la funcion IsNull

ej:
If IsNull(Dato) then
'el contenido de Dato es Null
'Entonces le asigno comillas vaciias en caso de que sea un String o 0 para Integer
Dato= " "
end if

aca guardo el contenido dela variable.

espero te sirva.

PERO LAS COMILLAS VACIAS YA ESTAN ASIGNADAS CUANDO VA INSERTANDO. LO QUE QUIERO DECIR ES QUE EN LAS CELDAS "VACIAS" EN EL GRID EN REALIDAD LO QUE HAY ES ESTO "".

Y DE TODOS MODOS NO ME GUARDA NADA ESOS REGISTROS
QUE ESTARA PASANDO???

PERO LAS COMILLAS VACIAS YA ESTAN ASIGNADAS CUANDO VA INSERTANDO. LO QUE QUIERO DECIR ES QUE EN LAS CELDAS "VACIAS" EN EL GRID EN REALIDAD LO QUE HAY ES ESTO "".

Y DE TODOS MODOS NO ME GUARDA NADA ESOS REGISTROS
QUE ESTARA PASANDO???

For i = 1 To Griddatos.Rows - 1

Clave=IIF(Null(Griddatos.TextMatrix(i, 0)) , 0, Griddatos.TextMatrix(i, 0))
Descripcion=IIF(Null(Griddatos.TextMatrix(i, 1)) , "--", Griddatos.TextMatrix(i, 1))

compara todos las celdas del grid por nulos o comillas simples y asignale un valor en caso de que sea nulo o envia el mensaje de error
por ejemplo para la descripcion que podria estar vacia puede ser "--" o algun otro mmensaje

despues la consulta te quedaria asi

bus = "insert into temp_PROD (CLAVE,DESCRIPCION,TIPO,CAPACIDAD,PRECIOP, PRECIOM, PRECIOR) values ('" & Clave& "', " & Descripcion & "', '" & Tipo & "','" & Capacidad & "', '" & PrecioP & "','" & PrecioM & "','" & PrecioR & "')"
Fraiche.Execute (bus)
Next i

espero te sirva

MUY BIEN
GRACIAS YA FUNCIONA !!!