Gracias Hermano, pero el problema no es con la conexión, mas bien son las consultas ejemplo de ello es esta:
Sql = "SELECT PedCam.ClvCam, PedCamDet.Cant, IIf(PedCamDet.Unidad='0','Pieza',IIf(PedCamDet.Unidad='1','Caja',' ')) AS Unid, Productos.NomPro, Format(IIf([pedcamdet].[tippro]=2,[productos].[preven],IIf([pedcamdet].[unidad]='0',[Productos].[cosvenpie],[productos].[preven])),'Standard') AS precio, Format(IIf([Productos].[Iva],(([precio]/1.15) ),[precio]),'Standard') AS Psiva, Format(pedcamdet.cant*psiva,'Standard') AS Subtot, Productos.TipPro, PedCamDet.Surt, Format(IIf(Productos.Iva,(precio/1.15)*0.15,0)*pedcamdet.cant,'Standard') AS impuesto, Format(pedcamdet.cant*precio,'Standard') AS Total " & _
"FROM PedCam INNER JOIN (PedCamDet INNER JOIN Productos ON PedCamDet.ClvProd = Productos.ClvProd) ON PedCam.ClvPed = PedCamDet.ClvPed " & _
"Where (((PedCam.ClvCam) = " & Val(TbClvCam.Text) & ") And ((PedCamDet.Surt) = 1)) and pedcan =0 ORDER BY PedCam.FecSol, PedCam.HorSol, PedCamDet.NomProd;"
cosas como el Iif, Format, o conversion de datos no existen en Sql Server, y son cosas muy necesarias para el correcto funcionamiento de esta consulta