tengo un combo donde se rellena los datos de mi BD Access al seleccionar un codigo tiene que aparecer solo los datos de ese codigo..

//esto es valido si tu campo codigo es texto
rs.open "select * from Tabla1 where Campo1='" & Combo1.text & "' "

set datagrid1.datasource=rs

// en caso contrario hacer esto


rs.open "select * from Tabla1 where Campo1= " & Combo1.text & " "

set datagrid1.datasource=rs