Base de datos

Buscar Cliente: Adodc1.RecordSource = "select codigocliente,nombre,direccion,ci,telefono from clientes where codigocliente= '" & txtbuscar & "'"
Adodc1.RecordSource = "select codigocliente,nombre,direccion,ci,telefono from clientes where nombre matches '*" & txtbuscar & "*'"
Adodc1.RecordSource = "select codigocliente,nombre,direccion,ci,telefono from clientes where direccion matches'*" & txtbuscar & "*'"
Adodc1.RecordSource = "select codigocliente,nombre,direccion,ci,telefono from clientes where ci matches '*" & txtbuscar & "*'"
Adodc1.RecordSource = "select codigocliente,nombre,direccion,ci,telefono from clientes where telefono='" & txtbuscar & "'"
Adodc1.RecordSource = "select codigocliente,nombre,direccion,ci,telefono from clientes "
Set rst =cn.Execute("select nombre,direccion,telefono from clientes where ci=" & g_ci)
consulta = " select codigocliente as l_cant from clientes where ci=" & g_ci

Buscar Productos: Adodc1.RecordSource = "select codigoproducto,nombreproducto,marca,cantidad,precio from productos where codigoproducto= '" & txtbuscar & "'"
Adodc1.RecordSource = "select codigoproducto,nombreproducto,marca,cantidad,precio fromproductos where cantidad = '" & txtbuscar & "'"
Adodc1.RecordSource = "select codigoproducto,nombreproducto,cantidad,marca,precio from productos where marca matches '*" & UCase(txtbuscar) & "*'"
Adodc1.RecordSource = "select codigoproducto,nombreproducto,cantidad,marca,precio from productos where nombreproducto matches '*" & UCase(txtbuscar) & "*'"
Adodc1.RecordSource = "selectcodigoproducto,nombreproducto,cantidad,marca,precio,familiaproducto,descripcion from productos "
Set rst = cn.Execute("select nombreproducto,precio from productos where codigoproducto=" & g_codigo)

Buscar Proveedor: Adodc1.RecordSource = "select codigoproveedor,nombrecomercial,direccion,rut,telefono from proveedores where codigoproveedor= '" & txtbuscar & "'"
Adodc1.RecordSource = "selectcodigoproveedor,nombrecomercial,direccion,rut,telefono from proveedores where nombrecomercial matches '*" & txtbuscar & "*'"
Adodc1.RecordSource = "select codigoproveedor,nombrecomercial,direccion,rut,telefono from proveedores where direccion matches '*" & txtbuscar & "*'"
Adodc1.RecordSource = "select codigoproveedor,nombrecomercial,direccion,rut,telefono from proveedores where rutmatches '*" & txtbuscar & "*'"
Adodc1.RecordSource = "select codigoproveedor,nombrecomercial,direccion,rut,telefono from proveedores where telefono='" & txtbuscar & "'"
Adodc1.RecordSource = "select codigoproveedor,nombrecomercial,direccion,rut,telefono from proveedores "
Set rst = cn.Execute("select nombrecomercial,direccion,telefono from proveedores where rut=" & g_rut)

ConsultaCliente: Adodc1.RecordSource = "select * from clientes where codigocliente= '" & txtbuscar & "'"
Adodc1.RecordSource = "select * from clientes where nombre matches '*" & txtbuscar & "*'"
Adodc1.RecordSource = "select * from clientes where apellido matches '*" & txtbuscar & "*'"
Adodc1.RecordSource = "select * from clientes where localidad matches '*" & txtbuscar & "*'"Adodc1.RecordSource = "select * from clientes where departamento matches '*" & txtbuscar & "*'"
Adodc1.RecordSource = "select * from clientes where sexo matches '*" & txtbuscar & "*'"
Adodc1.RecordSource = "select * from clientes "

Cuentas Corrientes Proveedor: Set rst = cn.Execute("select * from proveedores where rut =" & txtFiltro)
Adodc1.RecordSource = "select * from compras wherecodigoproveedor=" & lblcodprov.Caption
Adodc1.RecordSource = "select * from compras"


Cuentas Corrientes Clientes: Adodc1.RecordSource = "select * from ventas where fecha >= '" & fecha & "' and codigocliente =" & lblcodigo.Caption
Set rst = cn.Execute("select ci as ojse from clientes where ci=" & txtbuscarcliente.Text)
Set rst = cn.Execute("select telefono, celular, email, numeropuerta from...