error en tiempo de ejecucion

[juancho24]

Hola

porfavor ayudenme con el siguiente error en una consulta :

error '-2147467259 (80004005)' en tiempo de ejecucion

puede que el campo 'rutcliente' especificado haga referencia a mas de una tabla de las mostradas en la clausula FROM de la instruccion SQL

aca les dejo las lineas de codigo de la consulta

If optCliente.Value = True Then

modVarios.rs1.Open "SELECT DATOSCLIENTE,RutCliente, DATOSCLIENTE.DvCliente, DATOSCLIENTE.NombreCliente, DATOSCLIENTE.DireccionCliente," & _
" DATOSCLIENTE.FonoCliente , DATOSCLIENTE.CorreoCliente, DATOSCLIENTE.Region, DATOSCLIENTE.Ciudad, SITUACIONFAMILIAR.EstadoCivil," & _
" SITUACIONFAMILIAR.CalidadViv, SITUACIONFAMILIAR.TipoViv, SITUACIONFAMILIAR.Endeudamiento, INGRESOSMENSUALES.TotalIngresos, Actividad.Descripcion," & _
" Actividad.CodigoSII, Actividad.DireccionComercial, Actividad.ClasActividad, Actividad.IniciacionActividad, Actividad.PatenteMunicipal, Actividad.PermisoMunicipal," & _
" PERSONALMICROEMPRESA.NumeroTrabFamiliares, PERSONALMICROEMPRESA.NumeroTrabNoFamiliares, PERSONALMICROEMPRESA.NombreColaborador, PERSONALMICROEMPRESA.Relacion," & _
" PERSONALMICROEMPRESA.ParticipacionNegocio, PERSONALMICROEMPRESA.TipoAdmNegocio, PERSONALMICROEMPRESA.RutAdmNegocio, PERSONALMICROEMPRESA.DvAdmNegocio," & _
" CLASIFICACIONAMBIENTAL.DescClas, LOCALCOMERCIAL.LocalPropio, COMPRASYVENTAS.FechaVenta, COMPRASYVENTAS.TotalVentas, COMPRASYVENTAS.FechaCompra, COMPRASYVENTAS.TotalCompra , " & _
" INVENTARIOSTOCK.TotalInventario, DISTRIBUCIONCOMERCIALIZACION.Utilidades, DISTRIBUCIONCOMERCIALIZACION.MontoCuota, GASTOSFIJOSMENSUALES.Sueldodelpersonal," & _
" GASTOSFIJOSMENSUALES.ArriendodeLocal, GASTOSFIJOSMENSUALES.GastosGenerales, GASTOSFIJOSMENSUALES.GastosdeContabilidad, GASTOSFIJOSMENSUALES.Patente," & _
" GASTOSFIJOSMENSUALES.OtrosGastos, GASTOSVARIABLESMENSUALES.MesEvaluacion, GASTOSVARIABLESMENSUALES.IngresosporVentas, GASTOSVARIABLESMENSUALES.TotalCostosVariables," & _
" GASTOSVARIABLESMENSUALES.MargendeContribucion, RENTALIQUIDA.MargenUtilidad, RENTALIQUIDA.PromedioMesBuenos, RENTALIQUIDA.PromedioMesNormales, RENTALIQUIDA.PromedioMesMalos," & _
" RENTALIQUIDA.[Ventas-IVA-Promedio], RENTALIQUIDA.[Compras-IVA-Promedio], OBSERVACIONESGENERALES.NombrePersonaAtendio, OBSERVACIONESGENERALES.HoraVisita, OBSERVACIONESGENERALES.RelacionconCliente," & _
" OBSERVACIONESGENERALES.DisposiciondelCliente, OBSERVACIONESGENERALES.MontoCredito, OBSERVACIONESGENERALES.PlazoCredito, OBSERVACIONESGENERALES.ObjetivosCredito," & _
" OBSERVACIONESGENERALES.Conclusion , OBSERVACIONESGENERALES.fecha FROM ((((((((((((DATOSCLIENTE INNER JOIN PERSONALMICROEMPRESA ON (DATOSCLIENTE.RutCliente = PERSONALMICROEMPRESA.RutCliente)" & _
" AND (DATOSCLIENTE.DvCliente = PERSONALMICROEMPRESA.DvCliente))INNER JOIN CLASIFICACIONAMBIENTAL ON (DATOSCLIENTE.RutCliente = CLASIFICACIONAMBIENTAL.RutCliente)" & _
" AND (DATOSCLIENTE.DvCliente = CLASIFICACIONAMBIENTAL.DvCliente))INNER JOIN INGRESOSMENSUALES ON (DATOSCLIENTE.RutCliente = INGRESOSMENSUALES.RutCliente)" & _
" AND (DATOSCLIENTE.DvCliente = INGRESOSMENSUALES.DvCliente))INNER JOIN LOCALCOMERCIAL ON (DATOSCLIENTE.RutCliente = LOCALCOMERCIAL.RutCliente)" & _
" AND (DATOSCLIENTE.DvCliente = LOCALCOMERCIAL.DvCliente)) INNER JOIN ACTIVIDAD ON (DATOSCLIENTE.RutCliente = ACTIVIDAD.RutCliente) " & _
" AND (DATOSCLIENTE.DvCliente = ACTIVIDAD.DvCliente)) INNER JOIN SITUACIONFAMILIAR ON (DATOSCLIENTE.RutCliente = SITUACIONFAMILIAR.RutCliente)" & _
" AND (DATOSCLIENTE.DvCliente = SITUACIONFAMILIAR.DvCliente))INNER JOIN INVENTARIOSTOCK ON (DATOSCLIENTE.DvCliente = INVENTARIOSTOCK.DvCliente)" & _
" AND (DATOSCLIENTE.RutCliente = INVENTARIOSTOCK.RutCliente))INNER JOIN COMPRASYVENTAS ON (DATOSCLIENTE.DvCliente = COMPRASYVENTAS.DvCliente)" & _
" AND (DATOSCLIENTE.RutCliente = COMPRASYVENTAS.RutCliente))INNER JOIN DISTRIBUCIONCOMERCIALIZACION ON (DATOSCLIENTE.DvCliente = DISTRIBUCIONCOMERCIALIZACION.DvCliente) AND (DATOSCLIENTE.RutCliente = DISTRIBUCIONCOMERCIALIZACION.RutCliente)) INNER JOIN GASTOSFIJOSMENSUALES ON (DATOSCLIENTE.DvCliente = GASTOSFIJOSMENSUALES.DvCliente) AND (DATOSCLIENTE.RutCliente = GASTOSFIJOSMENSUALES.RutCliente)) INNER JOIN GASTOSVARIABLESMENSUALES ON (DATOSCLIENTE.DvCliente = GASTOSVARIABLESMENSUALES.DvCliente) AND (DATOSCLIENTE.RutCliente = GASTOSVARIABLESMENSUALES.RutCliente)) INNER JOIN RENTALIQUIDA ON (DATOSCLIENTE.DvCliente = RENTALIQUIDA.DvCliente) AND (DATOSCLIENTE.RutCliente = RENTALIQUIDA.RutCliente)) INNER JOIN OBSERVACIONESGENERALES ON (DATOSCLIENTE.DvCliente = OBSERVACIONESGENERALES.DvCliente) AND (DATOSCLIENTE.RutCliente = OBSERVACIONESGENERALES.RutCliente))WHERE (((DATOSCLIENTE.RutCliente)= val('" & txtrutCliente.Text & "')));", cnn1, adOpenStatic, adLockOptimistic
If modVarios.rs1.BOF = False And modVarios.rs1.EOF = False Then
If txtrutCliente.Text <> "" Then
If modVarios.rs1("RutCliente") = txtrutCliente.Text Then
Call modVarios.CargarDataGrid(DataGrid1)
Else
MsgBox ("no hay datos para cargar"), vbInformation
End If
Else
MsgBox ("Debe seleccionar un dato"), vbCritical

End If
Else
MsgBox ("La tabla no tiene registros"), vbCritical

End If
Call Ajustar_Columna_DataGrid(DataGrid1, adodc1, True)
cmdVistaPrevia.Enabled = True
End If

espero me puedan ayudar
Muchas Gracias

Juancho24