SQLDMO.Transfer Method Generates An Error

Hi
the following code generates an error while executing dbServer.Databases("InvModel").Transfer dbTransfer
error description
[SQL-DMO]Invalid parameter type; must be string or numeric ordinal, or an object; check documentation for this property or method.
I am trying with sql2005 express edition. the code was one which we used for sql 2000




Code Block
Dim dbTransfer As New SQLDMO.Transfer2
Dim dbServer As New SQLDMO.SQLServer2
dbServer.Connect gStrSQLServerName, "sa", "NEWTECH001"
With dbTransfer
.DestDatabase = Trim(txtCompCode)
.DestLogin = "sa"
.DestPassword = "NEWTECH001"
.DestServer = gStrSQLServerName
.DropDestObjectsFirst = True
.CopyAllObjects = True
.CopyAllTables = True
.CopyAllViews = True
.CopyData = SQLDMOCopyData_Replace
.IncludeDependencies = False
End With
Screen.MousePointer = vbHourglass
prgbar.Value = 35
dbServer.Databases("InvModel").Shrink 1, SQLDMOShrink_Default
DoEvents
Screen.MousePointer = vbHourglass
prgbar.Value = 50
DoEvents
dbServer.Databases("InvModel").Transfer dbTransfer
DoEvents
Screen.MousePointer = vbHourglass


REgds
Pramod