Visual Basic - que esta mal

Public Function CrearTablaPeriodo(ByVal Mes As Integer, ByVal Anio As Integer) As Boolean
On Error GoTo AvisoError
Dim CreaTabla As ADOX.Catalog
Set CreaTabla = New ADOX.Catalog
Dim TablaACrear As ADOX.Table
Set TablaACrear = New ADOX.Table
CreaTabla.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.3.51; " & _
"Data Source=h:\LiquidacionDeHaberes.mdb;" & _
"Jet OLEDB:Database Password=chg368"
With TablaACrear
.Name = CStr("Periodo" & Mes & Anio)
.Columns.Append "NroLegajo", adBSTR, 12
.Columns.Append "ApellidosNombres", adBSTR, 50
.Columns.Append "MontoACobrar", adDouble
.Columns.Append "FechaInicio", adDate
.Columns.Append "FechaFin", adDate
.Columns.Append "Liquidado", adBoolean
.Columns("NroLegajo").Attributes = adColNullable
.Columns("ApellidosNombres").Attributes = adColNullable
.Columns("MontoACobrar").Attributes = adColNullable
.Columns("FechaInicio").Attributes = adColNullable
.Columns("FechaFin").Attributes = adColNullable
.Columns("Liquidado").Attributes = adColNullable
End With
CreaTabla.Tables.Append TablaACrear
Set TablaACrear = Nothing
Set CreaTabla = Nothing
CrearTablaPeriodo = True
Exit Function
AvisoError:
If Not CreaTabla Is Nothing Then Set CreaTabla = Nothing
If Not TablaACrear Is Nothing Then Set TablaACrear = Nothing
RaiseEvent Error(Err.Description, Err.Source, Err.Number)
End Function
por que me tira error de no coinciden los tipos cuando quiero agregar la tabla a la base ? agradezco todo

por favor es de adox y no encuentro que esta mal.. es la conexion ... cualquier dato al respecto lo agradezco