Visual Basic - error de proteccion

Tengo un problema. Resulta que cuando tengo el siguientes código:

Sub Command1_Click ()
Dim sql As String
Dim gDb As database
Dim reg As Long

Set gDb = OpenDatabase("xxxx", False, False, "xxxx2")

If Err <> 0 Then
MsgBox "Error de conectividad N* " & Err, 48, "Atención"
End
End If

sql = "select 1 from syscolums"
reg = gDb.ExecuteSQL(sql)
gDb.Close
End Sub


Se cae y manda un error de proteccion general en VBDB300.dll en el módulo 000C:09AC

.....Antes se trabajaba conm una version antigua de sybase sin embargo ahora se trabaja con laversión 12.0.0.8 Y aún no puedo solucionar el problema. Si me pueden ayudar pleaseeeeeeeeeeeeeeeee