我创建了一个模块，将调用刷新功能为datagridview。我向我的项目添加了一个新模块，并添加了以下代码：

I created a module that will call the "refresh" function for the datagridview. I added a new module to my project and added this codes:

Imports System.Data.OleDb
Module Module1
Dim con As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source= database path")
Sub REFRESHDGV()
    Dim sql As String
    sql = "SELECT * FROM [product info]"
    Dim adapter As New OleDbDataAdapter(sql, con)
    Dim dt As New DataTable("product info")
    adapter.Fill(dt)
    Form1.dgv1.DataSource = dt
End Sub
End Module

希望这有助于别人！