Database

<br />
 Dim i As Integer<br />
        Dim dt As New DataTable()<br />
        Dim dr As DataRow<br />
        Dim userID As Integer<br />
        Dim ds As New DataSet()<br />
        Dim da As New SqlDataAdapter()<br />
        Dim cmd As New SqlCommand()<br />
        Dim cnn As New SqlConnection<br />
        Dim cb As New SqlCommandBuilder()<br />
<br />
        dt.Columns.Add("UserID")<br />
        dt.Columns.Add("GroupID")<br />
        Try<br />
            cnn.ConnectionString = "server=.; database=serviceMaster; integrated security = true"<br />
            cnn.Open()<br />
            cmd.Connection = cnn<br />
            cb.DataAdapter = da<br />
            cmd.CommandType = CommandType.Text<br />
            cmd.CommandText = "SELECT * FROM Roles"<br />
<br />
            da.SelectCommand = cmd<br />
            da.Fill(ds)<br />
            dt = ds.Tables(0)<br />
<br />
        Catch ex As Exception<br />
<br />
        End Try<br />
<br />
        userID = 24<br />
        Dim chklstIndexes As CheckedListBox.CheckedIndexCollection = Me.chkLstSecurityRoles.CheckedIndices<br />
<br />
        For i = 0 To Me.chkLstSecurityRoles.CheckedItems.Count - 1<br />
            dr = dt.NewRow()<br />
            dr("userID") = userID<br />
            dr("GroupID") = chklstIndexes.Item(i)<br />
            dt.Rows.Add(dr)<br />
        Next<br />
<br />
        'Add to the dataset and use the dataAdapter to update the database<br />
        Try<br />
            ds.Tables.Add(dt)<br />
            cb.GetUpdateCommand()<br />
            da.Update(ds)<br />
        Catch ex As Exception<br />
<br />
        End Try<br />