Dim Query

Query="insert into TableName(username)values('" &

txt_username.text & "')"

Dim cmd as sqlclient.sqlcommand=new

sqlclient.sqlcommand(Query,connection)

cmd.ExecuteNonquery()