Public Class fSelectWeatherGroup
    Private Sub fSelectArea_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        bsArea1.DataSource = DSET1
        bsArea2.DataSource = DSET2
        bsArea1.Filter = "code like '%0000'"
        bsArea2.Filter = "code = 'test'"

        cmbArea1.DisplayMember = "name"
        cmbArea1.ValueMember = "code"
        cmbArea2.DisplayMember = "name"
        cmbArea2.ValueMember = "code"
        cmbArea1.DataSource = bsArea1
        cmbArea2.DataSource = bsArea2

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btOK.Click

        DialogResult = DialogResult.OK
    End Sub
End Class