Visual Basic.NET - Error con módulo de Conexion DB

Hola,
Tengo un problema con un módulo que creé para conectarme con la base de datos(slq server 2005); en el momento que voy a adicionar una fila, con esta conexión me saca error en tables ahí va la conexión y la parte de grabación.
Envio como lo estoy haciendo por si alguien me puede ayuda?
Gracias....

Friend Sub conexionbd(ByVal SQL As String)
Try
con = New SqlConnection("Data Source = (local); Initial Catalog = BASEDEDATOS; Integrated Security = True")
con.Open()
cmd = New SqlCommand(SQL, con)
da = New SqlDataAdapter(cmd)
ds = New DataSet()
da.Fill(ds)
Catch ex As SqlException
MsgBox("Problema en la conexion con la BD")
Finally
con.Close()
End Try
End Sub

'crear un nuevo objeto fila
Dim odatarow As DataRow

odatarow = ds.Tables("clientes").NewRow

'añadir datos a las columnas de la fila
odatarow("idclien") = txidclien.Text
odatarow("fechingclien") = txfechingclien.Text
odatarow("nomclien") = txnomclien.Text
odatarow("primapell") = txprimapell.Text
odatarow("segapell") = txsegapell.Text

'añadir el objeto fila a la colección de filas de la tabla
ds.Tables("clientes").Rows.Add(odatarow)

'actualización
da.Update(ds, "clientes")

Prueba esto:
En la parte que llenas el DataSet, debes colocar así:

da.Fill(ds,"clientes")

¿Por qué?

porque cuando estás haciendo la actualización la estás haciendo de la tabla "clientes"

Aparte de eso veo que te falta también en el DataAdapter el UpdateCommand, porque así como tienes un SelectCommand, debes de configurar el UpdateCommand, porque cuando dices Update, el DataAdapter buscará el UpdateCommand...

da.UpdateCommand = new SqlCommand("UPDATE table... etc")

Suerte!