Dim cnCGN As OleDbConnection = New OleDbConnection(ConnectionExcel(filecgn))
Public Function ConnectionExcel(ByVal FullPathExcelFile As String) As String
Dim connectingdatabaseexcel As String
connectingdatabaseexcel = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & FullPathExcelFile &
";Extended Properties=""Excel 12.0;HDR=NO;" & "Persist Security Info=False" & """"
ConnectionExcel = connectingdatabaseexcel
End Function