Error: Invalid Use of New Keyword
 

Tengo un problema con la conexion de base de datos, a la hora almacenar los datos apenas presiono el boton guardar me da el error: Invalid use of new keyword, no entiendo que puede ser el problema porque la sentencia que me marca es la de New Connection.

Este es mi modulo, si me pueden ayudar con esto se los agradeceria mucho.
Global cn As Connection
Global cmd As Command
Global Rs As Recordset
Global SQL As String

Sub abrir()
Set cn = New Connection aqui marca el error
cn.Povider = "Microsoft.Jet.OLEDB.4.0;Data Source=C:\B.I.T\B.I.T.mdb;Persist Security Info=False"
cn.Open
End Sub

Sub cerrar()
cn.Close
Set cn = Nothing
End Sub

Sub ejecutar(SQL)
cn.BeginTrans
cn.Execute (SQL)
cn.CommitTrans
End Sub

Sub transaccion(SQL)
Call abrir
Call ejecutar(SQL)
Call cerrar
End Sub