Public sub Snimi()
Dim veza as new sqlConnection(neki_conn_string)
Dim Kom as new sqlCommand("INSERT INTO neka_tabela(Ime) values('Pero Peric')",veza)
try
veza.open
kom.executenonquery
veza.close
catch ex as sqlException
msgbox ex.message
end try
End Sub