Public Sub AddDataSource(ByVal sourceTable As DataTable, _
ByVal valueMemeberColumnName As String, _
ByVal displayMemberColumnName As String)
 
If (Not sourceTable Is Nothing) Then
    Me.DataSource = sourceTable
If (sourceTable.Columns.Count > 1) Then
    Me.ValueMember = valueMemeberColumnName
    Me.DisplayMember = displayMemberColumnName
End If
End If