试试这个

try this

Dim t As Integer
   t = 0
     DataGridView1.Rows.Clear()
     ss = "select code,name,sum(qty) as qty from StockIn group by code,name"
     com = New OleDbCommand(ss, con)
     con.Open()
     dr = com.ExecuteReader()
     if dr.Hasrows() then
       While dr.Read
          DataGridView1.rows.insert(t,dr(0),dr(1),dr(2))
       End While
     end if
     con.Close()