Visual Basic - Error 3028 en tiempo de ejecucion

Hola a todos, tengo un problema con mi aplicacion, funcionaba bien, todo bien hasta que le agregue codigo para limitar ingresar a la aplicacion solo con usuario y contraseña, el problema que tengo ahora es que cuando instalo mi aplicacion me sale ese maldito cartel de "error 3028 en tiempo de ejecucion" y me dice que no existe el grupo de trabajo, o esta en uso o bloqueado por otro usuario, pego aca el codigo de login de mi aplicacion, repito, funcionaba bien hasta que le agregue esto del login de usuarios. estuve buscando x internet y encontre algo relacionado pero es con la seguridad de la base de datos, o sea de la base de datos en si, pero no trabaje en ningun momento con la base de datos con contraseña, igualmente, probe agregando el workspace y me sigue apareciendo lo mismo. Gracias x las respuestas.

Option Explicit
Dim Dbase As Database
Dim RSTabla As Recordset
Public LoginSucceeded As Boolean

Private Sub cmdCancel_Click()
'establecer la variable global a false
'para indicar un inicio de sesión fallido
LoginSucceeded = False
End
Me.Hide
End Sub

Private Sub cmdOK_Click()
'comprobar si la contraseña es correcta

If txtUserName = RSTabla.Fields("user") Then
If txtPassword = RSTabla.Fields("password") Then
'colocar código aquí para pasar al sub
'que llama si la contraseña es correcta
'lo más fácil es establecer una variable global
LoginSucceeded = True
txtPassword = ""
txtUserName = ""
txtUserName.SetFocus
Me.Hide
If cambpass = 0 Then
Form1.Show
Else
cambpass = 0
txtPassword = ""
txtUserName = ""
Dialog.Show

End If
Else
MsgBox "La contraseña no es válida. Vuelva a intentarlo", , "Inicio de sesión"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
Else
MsgBox "Usuario no válido. Vuelva a intentarlo", , "Inicio de sesión"
txtUserName.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub

Private Sub Form_Load()
If App.PrevInstance = True Then
Unload Me
End If
Set Dbase = OpenDatabase(App.Path & "\" & "data.mdb")
Set RSTabla = Dbase.OpenRecordset("Tabla2", dbOpenTable)

txtPassword.Text = ""
End Sub

Actualizo el problema, descubri que no es error de codigo ni nada que s ele parezca, el programa funciona biel, el problema es cuando genero el instalador con el installshield12 no se que es lo que cambia que me da el error 3028 en tiempo de ejecucion, si busco la carpeta donde se instalo mi sistema y muevo los archivos a cualquier otro lugar el programa inicia lo mas bien, voy a seguir probando pero esta vez me quedo tranquilo que el sistema anda y es problema del installshield. sialguien sabe que puede ser agradezco la respuesta.
Martin