Visual Basic - Crear DbList en tiempo de ejecución

Hola a todos.

Estoy realizando una aplicación que cuando pulso un optionButton el DbList debe cambiar el campo que presenta en pantalla.

Private Sub Optimpri_Click(Index As Integer)
If Optimpri(0).Value Then
codigo......
ElseIf Optimpri(1).Value Then
'DBList1.DataField = "titulo"
ElseIf Optimpri(1).Value Then
'DBList1.DataField = "materia"
End If
End Sub

Quiero que aparezca el campo titulo o materia según el optionbutton que se pulse, pero siempre me da error.
¿Hay alguna solución?

Gracias.