Ti ringrazio ho risolto in questomodo:

nome_utente = txtNome.Text
cognome_utente = txtCognome.Text
username_utente = txtUsername.Text
password_utente = txtPassword.Text

sql = "insert into utente (nome, cognome, username,password ) "
sql = sql & "values ('" & nome_utente & "', '" & cognome_utente & "', '" & username_utente & "','" & password_utente & "')"
rs.Open(sql, conn)

Solo che adesso vorrei verificare se i campi sono stati tutti sottomessi e creo un costrutto if con la seguente sintassi:
If ((txtNome.Text = "") and (txtCognome.Text = "")) Then

solo chenn mi funge, sai darmi qaulche suggerimento...