vb:如何将datagrid显示的当前的一条记录添加到access数据库中~~

先打好基础
简单的可用Adodc控件，给你一些简单的代码，别的你自己加工
Private Sub DataGrid1_Click()
With DataGrid1
     Adodc1.Recordset.AddNew
    Adodc1.Recordset.Fields("a") = DataGrid1.Columns(0).Value
    Adodc1.Recordset.Fields("b") = DataGrid1.Columns(1).Value
    Adodc1.Recordset.Fields("c") = DataGrid1.Columns(2).Value
   Adodc1.Recordset.Update   
End With
End Sub
建议加上IF语句，先判断数据是否为空，如为空不执行AddNew，反之执行