DataAdapter - Access e Parametro

e ae pessoal, to tentando preencher um dataset com um OleDbDataAdapter, e nao consigo passa um simples parametro, como posso arrumar isso por favor, perdi umas 4 horas de trampo já nesse problema, agradeço se puderem me ajudar

 Dim da As New OleDbDataAdapter("SELECT * FROM Produtos WHERE Segmento=@Segmento", Dados.StringConexao)
 da.SelectCommand.Parameters("@Segmento").Value = vSegmento

Ja tentei com new oledbparameter e de vaaaarios outros jeitos, n sei mais o q fazer, mto obrigado pela atencao