Um.
You create a command, you add parameters, then... You don't use it to build you DataAdapter. Instead, you build it from the original string, without the parameter you need to supply.
Remove the line:
bcmd.ExecuteNonQuery()
And use the command object to build the DataAdapter:
Dim da As New SqlCeDataAdapter(bcmd)