VB Code:
Option Explicit
Private cn As New ADODB.Connection
Private rs As New ADODB.Recordset
Private cnString As String
Private sSQL As String
Private Sub cmdExecute_Click()
On Error GoTo ErrHandler
Dim sTable As String
sTable = "phpbb_users"
cnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & "*****" & ";PORT=3306;" & _
"DATABASE=" & "*******" & ";USER=" & "888888" & ";PASSWORD=" & "*******" & _
";OPTION=3;"
cn.ConnectionString = cnString
cn.Open
If chkQuery.Value <> 1 Then sSQL = "Select * from " & sTable
rs.Open sSQL, cn, adOpenDynamic, adLockOptimistic
Set MSHFlexGrid1.Recordset = rs
Set cn = Nothing
Set rs = Nothing
Exit Sub
ErrHandler:
MsgBox Err.Description, vbCritical
Resume Next
End Sub