ขอถามเกี่ยวกับ VB6 เรียกข้อมูลจาก Access2007 ไม่สามารถแสดงข้อมูลได้สมบูรณ์

Private Sub Command1_Click()
Dim sqlSup As String
Dim rsSup As New ADODB.Recordset
Dim i, j As Integer
GridSUP.Visible = True
sqlSup = "SELECT daydo,sym,goodidss,unitprice FROM rec_saledetail"
sqlSup = sqlSup & " where cowid='" & txt_cow.Caption & "'"
sqlSup = sqlSup & " ORDER BY daydo DESC"
With rsSup
    If .State = adStateOpen Then .Close
    .ActiveConnection = conn
    .CursorType = adOpenDynamic
    .CursorLocation = adUseClient
    .Open sqlSup
End With
            With GridSUP
                .Rows = 2: .Cols = 4
                For i = 0 To .Cols - 1
                        .FixedAlignment(i) = flexAlignCenterCenter
                Next
                .ColWidth(0) = 1000
                .ColWidth(1) = 6000
                .ColWidth(2) = 2000
                .ColWidth(3) = 1200
                .TextMatrix(0, 0) = "Çѹ·Õè": .ColAlignment(0) = flexAlignCenterCenter: .ColWidth(0) = 1200
                .TextMatrix(0, 1) = "ÃÒÂÅÐàÍÕ´": .ColAlignment(1) = flexAlignCenterCenter: .ColWidth(1) = 5800
                .TextMatrix(0, 2) = "ª×èÍÂÒ": .ColAlignment(2) = flexAlignCenterCenter: .ColWidth(2) = 1500
                .TextMatrix(0, 3) = "¨Ó¹Ç¹": .ColAlignment(3) = flexAlignCenterCenter: .ColWidth(3) = 1000
                For j = 1 To rsSup.RecordCount
                        .TextMatrix(j, 0) = rsSup.Fields(0).Value
                        .TextMatrix(j, 1) = rsSup.Fields(1).Value
                        .TextMatrix(j, 2) = rsSup.Fields(2).Value
                        .TextMatrix(j, 3) = rsSup.Fields(3).Value
                        rsSup.MoveNext
                        .Rows = .Rows + 1
                Next
            End With
            GridSUP.Refresh
            GridSUP.SetFocus

End Sub