tengo el siguiente codigo para insertar datos en una base de datos de sql trabajo con asp y lenguaje vb.

Imports System.Data
Imports System.Data.SqlClient
Imports System.Text
PartialClass _Default
Inherits System.Web.UI.Page
ProtectedSub btnguardar2_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles btnguardar2.Click
Dim con AsNew SqlConnection
con.ConnectionString = "Data Source=SS1\SQLEXPRESS;" + "Initial Catalog=INTRANET;Integrated Security=True"
Dim comd AsNew SqlCommand
comd.CommandText = "Insert into bancos(banco,titular,cuenta,clave,tipo,moneda,)" + "VALUES(,@banco,@titular,@cuenta,@clave,@tipo,@mon eda)"

comd.Parameters.Add("@banco", SqlDbType.NVarChar)
comd.Parameters.Add("@titular", SqlDbType.NVarChar)
comd.Parameters.Add("@cuenta", SqlDbType.NVarChar)
comd.Parameters.Add("@clave", SqlDbType.NVarChar)
comd.Parameters.Add("@tipo", SqlDbType.NVarChar)
comd.Parameters.Add("@moneda", SqlDbType.NVarChar)

comd.Parameters("@banco").Value = Me.txtbanco.Text
comd.Parameters("@titular").Value = Me.txttitular.Text
comd.Parameters("@cuenta").Value = Me.txtcuenta.Text
comd.Parameters("@clave").Value = Me.txtcbancaria.Text
comd.Parameters("@tipo").Value = Me.txttipocuen.Text
comd.Parameters("@moneda").Value = Me.txtmoneda.Text

Dim re AsInteger
Using con
con.Open()
re = comd.ExecuteNonQuery()
con.Close()
EndUsing

'Try
'con.Open()
' comd.ExecuteNonQuery()
' con.Close()
' Catch ex As Exception
''pasos si error
' Finally
'con.Close()
'End Try




EndSub
EndClass

al correrlo este me marca: ExecuteNonQuery: la propiedad Connection no se ha inicializado.

el try no me sirvio, si lo activo no marca error pero no guarda nada, alguien puede ayudarme.
se los agradezco