Sub Conexion()
   Set cn = New ADODB.Connection
   cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataAndStuff\cllbd.mdb;Persist Security Info=False"
   Set rs = New ADODB.Recordset
   rs.ActiveConnection = cn
   rs.CursorLocation = adUseClient
   rs.CursorType = adOpenDynamic
   rs.LockType = adLockOptimistic
   rs.Source = "Select * From BDOfertas"
   rs.Open
 
End Sub
 

Sub ConsultaFechas()
 
   SqlDos = "SELECT * FROM BDOFertas WHERE F_Desde > " & txtFechaUno.Text & " And F_Hasta < " & txtFechaDos.Text & ""
   Set rs = New ADODB.Recordset
   rs.CursorLocation = adUseClient
   rs.Open SqlDos, cn, adOpenStatic, , adCmdText
 
End Sub
 

ProgressBar1.Maximum = Val(Text1.Text)

Do While Not Timer1.Stop
ProgressBar1.Value = ProgressBar1.Value + 1
Do Events ' no estoy seguro si esta sentencia funciona en VB2012
Loop
'asdf
 

Private Sub Form_Activate()
   Set rs = LoadRecordSet("SELECT * FROM CLLDB ORDER BY Material")
   ProgressBar1.Max = rs.RecordCount
   ProgressBar1.Value = 0
   Do While Not rs.EOF
      ProgressBar1.Value = ProgressBar1.Value + 1
      DoEvents
      rs.MoveNext
   Loop
   Form6.Show
   Unload Me
End Sub
 

Private Sub Form_Load()
   ProgressBar1.Min = 0
End Sub
 

 Shell(RutaExcelExe & " " & InvFilePath)

C:\Archivos de Programa\Microsoft Office\Office12\Excel.exe

No se encontró "C:\Documents.xlsx" bla bla bla
No se encontro "and.xlsx"
No se encontro "Settings\panxin\escritorio\ProyectoAsdf\XLSX's\.xlsx"
No se encontro "TEST\Copia.xls"
No se encontro "(2).xlsx"

 Shell("RutaExcelExe" & " " & "InvFilePath")

"No se encuentra el archivo "InvFilePath"" ¬¬

Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hkey As Long) As Long
Private Const HKEY_CURRENT_USER = &H80000001
Private Const REG_DWORD = 4
Dim nBufferKey As Long
Dim nVal As Long
 

Private Sub Form_Load()
    ExcelVersion = ExcelApp.Version
    nVal = 1
    RegOpenKey HKEY_CURRENT_USER, "Software\Microsoft\Office\" & ExcelVersion & "\Excel\Security", nBufferKey
    RegSetValueEx nBufferKey, "AccessVBOM", 0, REG_DWORD, nVal, Len(nVal)
    'MsgBox "Sandbox Mode Changed", vbInformation, "Sandbox"
    RegCloseKey nBufferKey
   mibd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DataAndStuff\cllbd.mdb;Persist Security Info=False"
   PB1.Min = 0
   Open App.Path & "\DataAndStuff\OrdenPlanillaInventario.txt" For Input As #1
   Do Until EOF(1)
      Line Input #1, Linea
      Total = Total + Linea + vbCrLf
   Loop
   Close #1
   Label1.Caption = "NOTA IMPORTANTE:" & vbNewLine & "El archivo debe ser generado como ""HOJA CALCULO COSTE"" o el sistema dará ERROR."""
   'ExcelAccessVBOM
End Sub
 

Private Sub ExcelAccessVBOM()
ExcelVersion = ExcelApp.Version
Set FakeRegedit = CreateObject("Wscript.Shell")
ValorReg = FakeRegedit.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\" & ExcelVersion & "\Excel\Security")
MsgBox ValorReg
Set FakeRegedit = Nothing
End Sub
 

 "No se pudo abrir la clave del registro "HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Excel\Security" para leerla"