necesito ayuda sobre VBscript

aquetubumbu
02 de Mayo del 2002
intento conectar un formulario creado en Outlook con una base de datos en access.esto es lo que estoy intentando:
Dim oDatabase
Dim oDatabaseEngine
Dim bUseDatabase
bUseDatabase = 1
Sub Item_Open
if bUseDatabase then
InitializeDatabase = "c:prueba1.mdb"
GetDatabaseInfo "[Tabla1]","Nombre","Apellidos"
end if
End Sub
Sub GetDatabaseInfo (TableName, FieldName1, FieldName2)
strSQL = "Select Nombre , Apellidos FROM " & TableName
set oRS = oDatabase.OpenRecordset(strSQL)
if Err.Number <> 0 Then
MsgBox Err.Description & Err.Number & Chr(13) & "OpenRecordset failed"
Exit Sub
End if
oRS.MoveFirst
Item.UserProperties.Find(FieldName1).Value = oRS.Fields(0)
Item.UserProperties.Find(FieldName2).Value = oRS.Fields(1)
End Sub
Function Item_Close
If bUseDatabase then
oDatabase.Close
set oDatabaseEngine = nothing
end if
End Function

pero me dice que que se necesita un elemento oDatabase.¿donde esta el error?¿hay mas errores?
seguramente si, asi que os pido que me echeis una mano.gracias.