VB編程向access數據庫表所有列插入數據，但列數是個變量？vb編程怎麽弄，源代碼？

窗體中添加壹個DataGrid控件，比如控件名為DataGrid1，然後在窗體的加載事件中寫如下代碼：

Private Sub Form_Load()

'定義記錄集rsg

Dim rsg As New ADODB.Recordset

'打開記錄集rsg。以字段ID升序排列的數據庫bgb表

rsg.CursorLocation = adUseClient

rsg.Open "SELECT * FROM bgb Order By ID", cn, 3, 3

'給DataGrid1控件添加數據源為記錄集rsg

Set DataGrid1.DataSource = rsg

If Not rsg.EOF Or Not rsg.BOF Then rsg.MoveLast

End Sub

通過上面的代碼，就可以讓DataGrid1控件顯示數據庫中的bgb表了。

每向DataGrid1控件中添加壹行數據，數據庫中的bgb表就會增加壹條記錄。。