Alright This works perfectly!
VB Code:
Private Sub Form_Load()
'==============================
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim ITM As ListItem
cn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;" & _
"DATABASE=Pizazzy;USER=;PASSWORD=;OPTION=3;"
cn.Open
sql = "SELECT * FROM Messages"
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add 1, , "From"
ListView1.ColumnHeaders.Add 2, , "Message"
With rs
Do Until rs.EOF = True
Set ITM = ListView1.ListItems.Add(1, "", Trim(!From))
ITM.SubItems(1) = IIf(IsNull(!Msg), "", Trim(!Msg))
.MoveNext
Loop
End With
End Sub