DUVIDA CRYSTAL REPORTS X MYSQL

Option Explicit
Dim Report As CrystalReport

Private Sub Form_Load()
CrystalRet.ReportFileName = [Ô]C:\seu caminho\seu report\[Ô]
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set Report = Nothing
End Sub

Private Sub Form_Load()
CrystalRet.ReportFileName = [Ô]C:\Seu caminho\Seu report[Ô]
CryatalRet.Report.WindowTitle = [Ô]Seu Titulo[Ô]
CrystalRet.CopiesToPrinter = 1
CrystalRet.Destination = crptToWindow
CrystalRet.SortFields(0) = [Ô]+{Campo especifico do report que queira}[Ô]
CrystalRet.Action = 1
End Sub

Private Const REG_SZ = 1    [ô]Constant for a string variable type.
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegCreateKey Lib [Ô]advapi32.dll[Ô] Alias _
   [Ô]RegCreateKeyA[Ô] (ByVal hKey As Long, ByVal lpSubKey As String, _
   phkResult As Long) As Long
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 RegCloseKey Lib [Ô]advapi32.dll[Ô] _
   (ByVal hKey As Long) As Long

Private Sub Cria_DSN()
   Dim DataSourceName As String
   Dim DatabaseName As String
   Dim Description As String
   Dim DriverPath As String
   Dim DriverName As String
   Dim MaxUser As String
   Dim Regional As String
   Dim Server As String
   Dim lResult As Long
   Dim hKeyHandle As Long
   [ô]Specify the DSN parameters.
   DataSourceName = [Ô]Aqui vc coloca o nome do seu DNS [Ô]
   DatabaseName = [Ô]Seu BD[Ô]
   Description = [Ô]Sua tabela/Sua tabela[Ô] [ô]se tiver mais de uma, vc coloca barra depois do nome e vai preenchendo.
   DriverPath = [Ô]C:WindowsSystem32[Ô] [ô]Onde vc vai estalar o driver
   MaxUser = [Ô]Repita o nome de seu DNS [Ô]
   Server = 192.0.8.8 [ô]Ip do Servidor
   DriverName = [Ô]SQL Server[Ô] [ô] Aqui vc vai colocar quem eh seu BD. 
   [ô]Create the new DSN key.
   lResult = RegCreateKey(HKEY_LOCAL_MACHINE, [Ô]SOFTWAREODBCODBC.INI[Ô] & _
        DataSourceName, hKeyHandle)
   [ô]Set the values of the new DSN key.
   lResult = RegSetValueEx(hKeyHandle, [Ô]Database[Ô], 0&, REG_SZ, _
      ByVal DatabaseName, Len(DatabaseName))
   lResult = RegSetValueEx(hKeyHandle, [Ô]Description[Ô], 0&, REG_SZ, _
      ByVal Description, Len(Description))
   lResult = RegSetValueEx(hKeyHandle, [Ô]Driver[Ô], 0&, REG_SZ, _
      ByVal DriverPath, Len(DriverPath))
   lResult = RegSetValueEx(hKeyHandle, [Ô]MaxUser[Ô], 0&, REG_SZ, _
      ByVal MaxUser, Len(MaxUser))
   lResult = RegSetValueEx(hKeyHandle, [Ô]Server[Ô], 0&, REG_SZ, _
      ByVal Server, Len(Server))
   [ô]Close the new DSN key.
   lResult = RegCloseKey(hKeyHandle)
   [ô]Open ODBC Data Sources key to list the new DSN in the ODBC Manager.
   [ô]Specify the new value.
   [ô]Close the key.
   lResult = RegCreateKey(HKEY_LOCAL_MACHINE, _
      [Ô]SOFTWAREODBCODBC.INIODBC Data Sources[Ô], hKeyHandle)
   lResult = RegSetValueEx(hKeyHandle, DataSourceName, 0&, REG_SZ, _
      ByVal DriverName, Len(DriverName))
   lResult = RegCloseKey(hKeyHandle)
End Sub