     Dim con As New SqlConnection("Data Source=" & Form0.server & "," & Form0.port & "; Initial Catalog=" & Form0.database & "; User Id=" & Form0.txtUsername.Text & "; Password=" & Form0.txtPassword.Text & ";")      