Visual Basic - Ayuda con Fechas

Hola amigos del foro

Tengo un problema con manejo de fechas en sql server, estoy realizando una aplicacion con vbasic que se conecta a un servidor de base de datos sql server el problema es el siguiente.

Ejecuto la aplicacion donde esta el servidor de sql y todo funciona bien , compilo el archivo y lo instalo en una maquina remota y no muestra el filtrado de los datos.

La instruccion sql es una consulta que filtra fechas sin importar la hora en un campo date time

"15/05/2006 14:28:42.050"

Este es el codigo que estoy utilizando

fecha1 = frmalertas.DTPicker1.Value
d = Mid(fecha1, 1, 2)
m = Mid(fecha1, 4, 2)
y = Mid(fecha1, 7, 4)
fecha1 = y + m + d


Set oConn9 = Nothing
Set Rologin9 = Nothing

Set oConn9 = New Connection
Set Rologin9 = New Recordset

oConn9.ConnectionString = "DSN=principal;database=openf;PWD=secret;UID=admin;"
oConn9.Open

SQL1 = "select nombredelcliente,contacto,fechadecontacto from empresas where convert(varchar(20),fechadecontacto,112) ='" & fecha1 & "' and vendedor='" & Usu & "' order by nombredelcliente "


Alguien tiene una idea de que puede ser

O sera que la instruccion es valida solamente donde reside el servidor y en las estaciones de trabajo no

Ayuda por favor
Saludos
Mexico D.F.

Lo mas seguro es que sea por el formato regional de la máquina.
Prueba con la función DatePart:
d = DatePart("d", DTPicker1.Value)
m = DatePart("m", DTPicker1.Value)
y = DatePart("yyyy", DTPicker1.Value)
y así, sea cual fuere el formato regional, siempre te dará los valores correctos.