no coinciden los tipos de datos en la expresion

[jevalenzuela]

tengo el sguiente codigo:

Public Sub buscar_rut()
Dim sql_consulta As String
sql_consulta = "select * from disco_duro "
sql_consulta = sql_consulta + "Where num = '" & num & "';"

Set RS = New Recordset
RS.Open sql_consulta, CN, adOpenStatic
If Not RS.EOF Then
EXISTE = True
marca = RS!marca
modelo = RS!modelo
caracteristicas = RS!caracteristicas
fecha = RS!fecha
num.Enabled = False
Else
EXISTE = False
MsgBox "el dato no existe", vbExclamation + vbOKOnly, "Alumnos"
End If
End Sub


el lo amarillo me marca el error que sera?