Dentro del for abre la bd ejecutas el query y la cierras... No puedes mantener la conex abierta y ejecutar querys porque te generara ese error...
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Private SkinOb As New SKINCRAFTERLib.SCSkin2
Private Sub Form_Initialize()
SkinOb.InitLicenKeys("SKINCRAFTER","SKINCRAFTER.COM",
"esupport@skincrafter.com","DEMOSKINCRAFTERLICENCE")
SkinOb.DefineLanguage 2
SkinOb.InitDecoration 1
End Sub
Private Sub Form_Load()
SkinOb.LoadSkinFromFile App.Path & "\Skin.skf"
SkinOb.ApplySkin
End Sub