Importar datos a sql desde un excel en visual basic

Dim cn As ADODB.Connection
Dim strSQL As String
Dim lngRecsAff As Long
cn = New ADODB.Connection
cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Empleados.xls;" & _
"Extended Properties=Excel 8.0")
strSQL = "SELECT * INTO [odbc;Driver={SQL Server};Server=Source;Database=Nuevo;" & _
"UID=Usuario;PWD=Contraseña].TablaExcel FROM [UltimaTitulaciónEmpleado$]')"
'aqui es donde esta el problema que me dice conexion fallida o error en la llamada. Podrias ayudarme?
cn.Execute(strSQL, lngRecsAff)
Debug. Print("Records affected: " & lngRecsAff)
Con.Close()
cn = Nothing