SqlDataAdapter Insert How To

Public Function SaveDelegate(ByVal _pid As String, ByVal _delegate As String, ByVal _expiry As String) As Boolean
        Dim _myDataAdapter As New SqlDataAdapter("select * from delegates", _dbConnection)
        Dim _mySqlCommand As New SqlCommand("insert into delegates (myPid, delegatePid, fallbackPid, expires) values (@pid, @delegate, @delegate, convert(datetime, @expiry))", _dbConnection)
        Dim _myDataSet As New DataSet()
        Dim _returnValue As Boolean = False
 
        _dbConnection.Open()
 
        _myDataAdapter.Fill(_myDataSet, "delegates")
 
        Dim p As New SqlParameter("@pid", SqlDbType.NVarChar, 10)
        Dim d As New SqlParameter("@delegate", SqlDbType.NVarChar, 10)
        Dim e As New SqlParameter("@expiry", SqlDbType.DateTime)
 
        _mySqlCommand.Parameters.Add(p)
        _mySqlCommand.Parameters.Add(d)
        _mySqlCommand.Parameters.Add(e)
 
        _myDataAdapter.InsertCommand = New SqlCommand(Nothing, _dbConnection)
        With _myDataAdapter.InsertCommand
            .CommandText = "insert into delegates (myPid, delegatePid, fallbackPid, expires) values (@pid, @delegate, @fallBack, convert(datetime, @expiry))"
            .Parameters.Add(New SqlParameter("@pid", SqlDbType.NVarChar, 10, "myPid"))
            .Parameters("@pid").Value = _pid
 
            .Parameters.Add(New SqlParameter("@delegate", SqlDbType.NVarChar, 10, "delegatePid"))
            .Parameters("@pid").Value = _delegate
 
            .Parameters.Add(New SqlParameter("@fallBack", SqlDbType.NVarChar, 10, "fallbackPid"))
            .Parameters("@pid").Value = _delegate
 
            .Parameters.Add(New SqlParameter("@expiry", SqlDbType.DateTime, 10, "expires"))
            .Parameters("@pid").Value = _expiry
 
        End With
 
        _myDataAdapter.Update(_myDataSet, "delegates")
 
        _dbConnection.Close()
 
        Return (_returnValue)
    End Function