Imports System.Data
Imports System.Data.sqlClient

Public Class frmAddMovie
    Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
    Me.Close()
End Sub

Private Sub btnAdd_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnAdd.Click    
    Dim conString As String = "Data Source=.\sqlEXPRESS;AttachDbFilename=|DataDirectory|\Movies.mdf;Integrated Security=True;User Instance=True;"
    Dim con As New sqlConnection(conString)
    Dim cmd As New sqlCommand("Insert Into tblMovies(fldTitle,fldDirector,fldRating)Values('Solar Babies','PG','Rick Flair')",con)

    Using con
       con.Open()
       cmd.ExecuteNonQuery()
    End Using

    If MessageBox.Show("Movie Added") = Windows.Forms.DialogResult.OK Then
        Me.Close()
    End If

End Sub
End Class