'提供个大概思路
for each c as Control in GroupBox1.Controls
If c.GetType Is GetType(TextBook) Then
if CType (c,TextBox).Text.Length>0 then
insertCommand.CommandText = " INSERT INTO 表 Values('" & CType (c,TextBox).Text & "')"
insertCommand.ExeNoQuery()
end if
end if
next