Visual Basic - Ayuda

SE CAE Y ME DICE POCOS PARAMETROS SE ESPERABA 1 GRACIAS.

Private Sub Buscar_Click()
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim txtsql As String
con.Open ("dsn=fsgprestamos")
txtsql = "select * from prestamos where rcm=" & Val(Text1.Text) & ""
If Text1.Text = "" Then
MsgBox "DEBE INGRESAR RCM"
Else

Set rs = con.Execute(txtsql)
If rs.EOF = False Then
Adodc1.RecordSource = txtsql
Adodc1.Refresh
con.Close

con.Open ("dsn=fsgprestamos")
txtsql = "select * from medicos where rcm=" & Val(Text1.Text) & ""
Set rs = con.Execute(txtsql)
If rs.EOF = False Then
Adodc2.RecordSource = txtsql
Adodc2.Refresh
Text2 = rs!nombre1
Text3 = rs!nombre2
Text4 = rs!ape_pat
Text5 = rs!ape_mat
Text6 = rs!condicion_vital
Text7 = rs!numerofsg
Text8 = rs!descripcion
con.Close

con.Open ("dsn=fsgprestamos")
txtsql = "select * from contrato where rcm=" & Val(Text1.Text) & ""
Set rs = con.Execute(txtsql) ' AQUI SE CAE
If rs.EOF = False Then
Adodc3.RecordSource = txtsql
Adodc3.Refresh
Text9 = rs!idestamento
Text10 = rs!condicion
con.Close


If Text6.Text = 222 Then
Text6.Text = "VIVO"
Else
If Text6.Text = 223 Then
Text6.Text = "FALLECIDO"
End If
End If

Exit Sub
End If
End If
End If
End If
End Sub

en tu cod. sale :

txtsql = "select * from contrato where rcm=" & Val(Text1.Text) & ""
Set rs = con.Execute(txtsql) ' AQUI SE CAE

intenta quitandole el [ & "" ] despues de donde dice Val(text1.text)
prueba...y me cuentas

si le quito & no puedo terminar la instrucción y se cae.

bien intenta haciendo esto:

Set RST = conex.Execute(txtsql & Val(Text1.Text))

obviamente que en tu txtsql... debes quitar desde [& val(text1....]

no pasa nada, igual gracias

txtsql = "select * from medicos where rcm=" & Val(Text1.Text) & ""
proba con esto

txtsql = "select * from medicos where rcm=' " & Val(Text1.Text) & ""

o bien con esto
minum = val(text1.text)

txtsql = "select * from medicos where rcm=minum"& ";"
suerte