Hi all

After querying a database with

Sub GetAppData()
    If Not IsInternetConnected Then
        If Data.Cells(2, 2) <> 1 Then frmNoInternet.Show
        Exit Sub
    End If
    Dim cn As New ADODB.Connection, rs As New ADODB.Recordset, i As Long
    On Error GoTo Link
Conn:
    #If Win64 Then
    cn.Open "Provider=MSDASQL;DRIVER={mysql odbc 5.2 unicode driver}" _
        & ";SERVER=localhost" _
        & ";PORT=3306" _
        & ";DATABASE=fringell_DbgTfg0O" _
        & ";UID=" _
        & ";PWD="
    #Else
    cn.Open "DRIVER={MySQL ODBC 3.51 Driver}" _
        & ";SERVER=localhost" _
        & ";PORT=3306" _
        & ";DATABASE=fringell_DbgTfg0O" _
        & ";UID=" _
        & ";PWD="
    #End If
    On Error GoTo Oops
    rs.CursorLocation = adUseClient
    rs.Open "SELECT * FROM jos_visforms_1", cn, adOpenDynamic
    With AppData
        .Cells.ClearContents
        For i = 0 To rs.Fields.Count - 1
            .Cells(1, i + 1) = rs.Fields(i).Name
        Next
        .Cells(2, 1).CopyFromRecordset rs
    End With
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
    Exit Sub
Link:
    Dim yesno As String
    yesno = MsgBox("It looks like you are not connected through the SSH Tunnel.  Do you want to try connecting now?", _
        vbYesNo + vbInformation, "No connection to Database...")
    If yesno = vbYes Then
        PlinkConnect
        GoTo Conn
    End If
Oops:
    MsgBox Err.Number & "; " & Err.Description
End Sub
I get all the data in the table from all fields except one.

Example


Record contains I'm getting
Fri 17, Sat 18, Fri 24, Sat 25 Fri 17
Sun 19, Mon 20, Tue 21, Sun 26 Sun 19

There are other fields in the DB that contain commas but I'm getting those ok.

Any ideas?