Visual Basic - No acepta datos nulos

Private Sub Command1_Click()
If Text1.Text = "" Then
mens = MsgBox("Debe Insertar el Rut", vbCritical, "Error")
Else
con.Open ("dsn=dental")
txtsql = ""
txtsql = "insert into proveedor(nombre_empresa, rut,"
txtsql = txtsql & "direccion, comuna, "
txtsql = txtsql & "telefono, "
txtsql = txtsql & "e_mail, "
txtsql = txtsql & "nom_contacto, fono_contacto, "
txtsql = txtsql & "mail_contacto)"
txtsql = txtsql & "values('"
txtsql = txtsql & Text2.Text + "','"
txtsql = txtsql & Text1.Text + "','"
txtsql = txtsql & Text4.Text + "','"
txtsql = txtsql & Combo1.Text + "','"
txtsql = txtsql & Text5.Text + "','"
txtsql = txtsql & Text7.Text + "','"
txtsql = txtsql & Text9.Text + "','"
txtsql = txtsql & Text10.Text + "','"
txtsql = txtsql & Text11.Text + "')"
con.Execute (txtsql)
MsgBox "REGISTRO GUARDADO", vbOKOnly, "BODEGA"
Call limpia(Proveedores)
con.Close
End If
End Sub

Cuando ingreso todos los datos no hay problema, pero cuando dejo un dato null se cae y dice que no coinciden los tipos de datos, en la base de datos no creo que está el problema ya que los datos los tengo como no requeridos. gracias por la ayuda.

Te recomiendo que en lo campos que requieren valor numerico en el textbox hagas lo siguiente:
" & IIf(Text1 = "", 0, Text1) & "
Para cuando llegue a insertar en los campos que no tengan valor y son numericos les ponga un cero, espero y te sirva!!!

Normalmente, es mi caso, hago una verificacion de los datos del tipo texto si no estan vacios, esto lo hago aun cuando esta configurada la base de datos para acptar nullos. me gusta asegurarme por todos lados. POR EJEMPLO

Dato=IIf(IsNull(TxtCadena.Text),"",TxtCadena.Text)

Y en el caso de los campos con datos numericos hago esto.

Dato=Val(IsNull(TxtValor.Text),0,TxtValor.Text)

Ahora tomando tu problema dices: que no coniciden los tipos de datos. Normalmente sucede, al menos a mi, cuando trato de almacenar una cadena en un campo numerico o viceversa.

Gusto de hablar contigo.

Normalmente, es mi caso, hago una verificacion de los datos del tipo texto si no estan vacios, esto lo hago aun cuando esta configurada la base de datos para acptar nullos. me gusta asegurarme por todos lados. POR EJEMPLO

Dato=IIf(IsNull(TxtCadena.Text),"",TxtCadena.Text)

Y en el caso de los campos con datos numericos hago esto.

Dato=IIf(IsNull(TxtValor.Text),0,TxtValor.Text)

Ahora tomando tu problema dices: que no coniciden los tipos de datos. Normalmente sucede, al menos a mi, cuando trato de almacenar una cadena en un campo numerico o viceversa.

Gusto de hablar contigo.