vb Á¬½ÓÊý¾ÝÀý×Ó

   '¹¤³Ì-->ÒýÓà Ìí¼Ó Microsoft activex data objects 2.5 library
    '¹¤³Ì-->²¿¼þ Ìí¼Ó Microsoft flexgrid control 6.0
    Dim Cnn As New ADODB.Connection
    Cnn.ConnectionString = "Provider=microsoft.jet.oledb.4.0;data source=E:\Access DB\Database1.mdb;"
    If Cnn.State <> ADODB.ObjectStateEnum.adStateClosed Then Cnn.Close
    Cnn.Open
    Dim Rs As ADODB.Recordset
    Set Rs = New ADODB.Recordset
    With Rs
        Set .ActiveConnection = Cnn
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open "SELECT good_code,customer,sum(price*amount)/sum(amount) AS avg_price from sales GROUP BY good_code,customer"
        If .RecordCount > 0 Then
            MSFlexGrid1.Clear
            MSFlexGrid1.Cols = 3
            MSFlexGrid1.Rows = .RecordCount + 1
            MSFlexGrid1.TextMatrix(0, 0) = "ÉÌÆ·±àºÅ"
            MSFlexGrid1.TextMatrix(0, 1) = "¹Ë¿ÍÃû³Æ"
            MSFlexGrid1.TextMatrix(0, 2) = "ƽ¾ù¼Û¸ñ"
            .MoveLast: .MoveFirst
            For i = 1 To .RecordCount
                MSFlexGrid1.TextMatrix(i, 0)