dim intrecs=myDataResults.RecordsAffected()
formMessage.Text = switch(intrecs=0,"Database exists.",intrecs=1,"Database created.")
or better yet
dim intrecs=myDataResults.RecordsAffected()
formMessage.Text = choose(intrecs+1,"Database exists.","Database created.")
This is why everyone should own "VB.net in a Nutshell" to learn VB.net syntax well
www.amazon.com/.../learnasp