Visual Basic.NET - conexion (novato)

hola a todos ojala puedan ayudarme cuando lo ago correr me el siguiente error:

An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll

Additional information: System error.

en al siguiente linea:

adappresentacion.Fill(dpresentacion, "tpresentacion")

el codigo que tengo es el siguiente:

Dim conexion As New SqlClient.SqlConnection
Dim cmdpresentacion, inspresentacion As New SqlClient.SqlCommand
Dim adappresentacion As New SqlClient.SqlDataAdapter
Dim dpresentacion As New DataSet
Dim rs As DataRow

conexion.ConnectionString = "data source=HECTOR;persist security info=False;initial catalog=Phuertos"

adappresentacion.AcceptChangesDuringFill = True
cmdpresentacion.CommandText = "select *from PRESENTACION"
cmdpresentacion.Connection = conexion
adappresentacion.SelectCommand = cmdpresentacion

inspresentacion.CommandText = "insert into PRESENTACION(codpresentacion, tipo) values(@codpresentacion, @tipo)"
inspresentacion.Parameters.Add("@codpresentacion", SqlDbType.VarChar, 20, "codpresentacion")
inspresentacion.Parameters.Add("@tipo", SqlDbType.VarChar, 30, "tipo")
inspresentacion.Connection = conexion
adappresentacion.InsertCommand = inspresentacion

adappresentacion.Fill(dpresentacion, "tpresentacion")
rs = dpresentacion.Tables("tpresentacion").NewRow
rs ("codpresentacion") = tcodigo.Text
rs ("tipo") = ttipo.Text
dpresentacion.Tables("tpresentacion").Rows.Add(rs )
adappresentacion.Update(dpresentacion, "tpresentacion")

pueden ayudarme porfavor
gracias de antemano