Chris

    Private Sub InsertMovie_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call LoadDatabase()
'        cmbRating.Items.Add("Family")
'        cmbRating.Items.Add("Parental Guidance")
'        cmbRating.Items.Add("Adult Accompaniment")
'        cmbRating.Items.Add("Restricted")
'        cmbRating.SelectedIndex = 3

        Try
            con.Open()
            daMovie.SelectCommand = "SELECT fldCategory, fldDescription FROM tblCategory " & _
                "ORDER BY fldCategory"
            dsMovie.Clear()
            daMovie.Fill(dsMovie, "tblCategory")
        Catch ex2 As SqlException
            MessageBox.Show("Connection or Fill failed: " & ex2.Message)
            Exit Sub
        Finally
            con.Close()
        End Try

        cmbCategory.DataSource = dsMovie.Tables("tblCategory")
        cmbCategory.DisplayMember = "fldDescription"
        cmbCategory.ValueMember = "fldCategory"

    End Sub

    Private Sub LoadDatabase()

        con.ConnectionString = _
                "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\VideoDB.mdf;" & _
                "Integrated Security=true;Connect Timeout=15;User Instance=True"

        daMovie.SelectCommand = cmdSelectMovie
        daMovie.SelectCommand.Connection = con
        daMovie.SelectCommand.CommandText = "SELECT * FROM tblMovie"
        dtMovie = dsMovie.Tables("tblMovie")

        Try
            con.Open()
            cmdSelectMovie.CommandText = "SELECT * FROM tblMovie"
            dsMovie.Clear()
            daMovie.Fill(dsMovie, "tblMovie")
        Catch ex2 As SqlException
            MessageBox.Show("Connection or Fill failed: " & ex2.Message)
            Exit Sub
        Finally
            con.Close()
        End Try

        dtMovie = dsMovie.Tables("tblMovie")


    End Sub