Yo estoy haciendo un programa parecido, se conecta a un servidor y hace login etc..
Te aconsejo que crees un servidor, y el cliente envie packets tipo
LOGIN@USUARIO@CONTRASEÑA
En el servidor haces un split y usas el Variable(0) para identificar si el usuario esta haciendo login ya que Variable(0) = LOGIN
Entonces luego haces un rs.Open "SELECT * FROM Usuarios WHERE UserID = '" & Variable(1) & "' AND Password = '" & Variable(2) & "'"
Con eso haces una query el la db y mira si el usuario existe, desde ahi pues verificas q los datos son correctos con rs.EOF y envias al cliente x ejemplo
RESPUESTALOGIN@VALIDO@ADMINISTRADOR o RESPUESTALOGIN@VALIDO@USUARIO
Espero q te sirva de ayuda