Visual Basic - sql con vb

HOLA NECESITO AYUDA ESTOY PROGRAMANDO EN VB.. AL MOMENTO DE GUARDAR LOS DATOS ALA BASE DE DATOS (SQL) ME MARCA ERROR , EL SIGUIENTE CODIGO ES EL QUE TENGO EN UN MODULO,PRIMERO DECLARO MIS VARIABLE GLOBALES Y POSTERIORMENETE TENGO EL SIGUIENTE CODIGO:

Public Function Conexion()
BDatos.ConnectionString = "DSN=ORIGEN_JIMCEL"
BDatos.Open ("DSN=ORIGEN_JIMCEL;UID=a;PWD=a;DATABASE=SIS_JIMCEL")
SQL.ActiveConnection = BDatos
SQL.CommandText = strSQL
BDatos.Execute SQL.CommandText
BDatos.Close
End Function

'-------------Lee y carga en memoria--------------------------------*
Public Function Leer()
BDatos.Open ("DSN=ORIGEN_JIMCEL;UID=a;PWD=a;DATABASE=SIS_JIMCEL")
Call Reg.Open(strSQL, BDatos, adOpenDynamic, adLockReadOnly)
End Function

AQUI ES DONDE NO MANDA EL ERROR
Call Reg.Open(strSQL, BDatos, adOpenDynamic, adLockReadOnly)

LAS LIBRERIAS SI LAS TENGO AGREGADAS.. PERO SI ME PUDIERAN DECIR CUALES PARA NUEVAMENTE CHECARLAS... POR FAVOR

GRACIAS SE DESPIDE GRINCHLIZ

¿Que error se produce?
Sin esa información es casí imposible saber lo que ocurre.

EL MENSAJE QUE MESALE ES EL SIGUIENTE:
ERROR '-2147217900(80040E14)' EN TIEMPO DE EJECUCION
[MICROSOFT][ODBS SQL SERVER DRIVER][SQL SERVER]
NO SE PUEDE USAR NOMBRES VACIOS PARA OBJETOS NI COLUMNAS. USE UN CARACTER DE ESPACIO SI ES NECESARIO.

LUEGO ME MANDA AL MODULO: EN DONDE ME MARCA CON COLOR AMARILLA EL RENGLON DE Call Reg.Open(strSQL, BDatos, adOpenDynamic, adLockReadOnly)

Public Function Leer()
BDatos.Open ("DSN=ORIGEN_JIMCEL;UID=a;PWD=a;DATABASE=SIS_JIMCEL")
Call Reg.Open(strSQL, BDatos, adOpenDynamic, adLockReadOnly)
End Function

EL CODIGO QUE TENGO PARA GUARDAR ES EL SIGUIENTE: LO EJECUTO Y AL MOMENTO DE LEER ME MANDA EL ERROR

Private Sub Command1_Click()
If Text2 = "" Or Text1 = "" Or Text5 = "" Then
MsgBox "Introduce todos los Datos requeridos para el Usuario", vbCritical, "Seguridad"
Else
strSQL = "select USSER from TBL_USUARIO where USSER=" & Val(Text1.Text) & """"
Call Leer '-----------------------------
If Reg.EOF = False Then
Reg.Close
BDatos.Close
MsgBox "Ya existe un Usuario con esa Contraseña", vbExclamation, "error fatal"
Exit Sub
End If
Reg.Close
BDatos.Close
strSQL = "insert into TBL_USUARIO(NOMBRE,APE_PATERNO,APE_MATERNO,PERFIL,USSER,CONTRA,EXI_USU) values(" & Trim(Text2.Text) & _
",'" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "','" & Trim(Combo1.Text) & "','" & Trim(Text1.Text) & "','" & Trim(Text5.Text) & "','1')"
Call Conexion
Text2 = ""
Text3 = ""
Text4 = ""
Combo1.Text = ""
Text1 = ""
Text5 = ""
Text6 = ""
MsgBox "LOS DATOS DEL USUARIO SE ALAMCENARON EN LA BASE DE DATOS CORRECTAMENTE "
End If
Text2.SetFocus
End Sub

pero vos me parece que estas abriendo la bd solo lectura ,fijate de no poner readonly y proba

Si no me equivoco el error está en la sentencia:
strSQL = "select USSER from TBL_USUARIO where USSER=" & Val(Text1.Text) & """"

despues de esa sentencia strSQL contendrá algo así como:
select USSER from TBL_USUARIO where USSER=1"
Esta sentencia es una sentencia SQL no válida, no se si el campo USSER es númerico o de texto, si es númerico las comillas finales sobran, y si es de tipo texto el valor para comparar debería ir entre apostrofos.