Protected Sub cboJbtn_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboJbtn.SelectedIndexChanged        
        ConnDb(cboJbtn.SelectedItem.Text)
End Sub
 
    Private Sub ConnDb(ByVal jbtn As String)
        Dim MyConn As SqlConnection = New SqlConnection("Data Source=WIN200;Initial Catalog=***;User ID=***;Password=***")
        Dim cmd As String = "SELECT DISTINCT dataStaf.nama FROM dataStaf INNER JOIN service ON dataStaf.idStaf = service.idStaf INNER JOIN databahagian ON service.kdjbts = databahagian.kodBahagian WHERE (dataStaf.status = '1') AND (databahagian.namaBahagian ='" & jbtn & "') ORDER BY dataStaf.nama"
 
        Dim MyCmd As New SqlCommand(cmd, MyConn)
        'MyCmd.CommandType = CommandType.Text
 
        Try
            If MyConn.State = ConnectionState.Closed Then
                MyConn.Open()
 
            End If
 
            cboNama.DataSource = MyCmd.ExecuteReader()
            cboNama.DataTextField = "nama"
            cboNama.DataValueField = "nama"
            cboNama.DataBind()
            MyConn.Close()
 
        Catch ex As Exception
            lblMsg.Text = "Error connecting to db"
        End Try
 
    End Sub
End Class
 

cboNama.Items.Clear()
cboNama.DataSource = MyCmd.ExecuteReader()