error 13 en tiempo de ejecucion, no coinciden los tipos!!!!

[vampirito]

hola!!! tengo un problema este codigo lo tengo en otro programa y si me funciona en el otro pero en este nuevo no.

codigo:

Private Sub Command1_Click()
Dim DB As Database
Dim TB As Recordset
Dim SQL As String
SQL = "select * from usuarios where usuario = '" & Text1.Text & "'"
Set DB = OpenDatabase("c:\EMPRESA\EMPRESABD.mdb")
Set TB = DB.OpenRecordset(SQL)
If TB.RecordCount > 0 Then
Label4.Caption = "HOLA"
Label4.FontBold = True
Label4.ForeColor = "RED"
Else
Label4.Caption = "NOMBRE INCORRECTO"
Label4.FontBold = True
Label4.ForeColor = "GREEN"
End If

End Sub


Y ME MANDA ESTE MENSAJE:

"ERROR 13 EN TIEMPO DE EJECUCION"
"NO COINCIDEN LOS TIPOS"

[[EX3]]

Iniciado por vampirito

hola!!! tengo un problema este codigo lo tengo en otro programa y si me funciona en el otro pero en este nuevo no.
(...)
Label4.ForeColor = "RED"
Label4.ForeColor = "GREEN"

Me extraña que digas que esto te funciona cuando es imposible que lo haga. ForeColor es una propiedad de tipo Integer y no String. Solo admite numeros y no cadenas de texto. Ahi tienes el error. Cambia "RED" por vbRed o &HFF o RGB(255,0,0) y "GREEN" por vbGreen, &HFF00& o RGB(0,255,0)

Cuando surgan errores en el programa recuerda usar la opcion de Depurar. Asi te marca que codigo es el que ha provocado el error.Salu2...

[vampirito]

si de hecho ese era uno de los errores, aunque se lo quite y sigue enviandome el mismo error de ejecucion, aun no se a que se deba, pero se me imagina que algo tiene que ver con la conexion al acces, ya que tube que hacer una copia del programa que si servia y cambiarle los parametros a los de este programa y en este si funciono.