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()