Visual Basic

Private Sub Userform_Initialize()
Dim strOffice As String
Dim i As Long
Dim db As DAO.Database
Dim rs As DAO.Recordset
  strOffice = "Test"
  'Open the spreadsheet containing the data
  Set db = OpenDatabase("C:Testdata.xlsx", False, False, "Excel 12.0; IMEX=1;")
  'Retrieve the recordset
  Set rs = db.OpenRecordset("SELECT * FROM `Test`")
  'Set the number of Columns = number of Fields in recordset
  ListBox1.ColumnCount = rs.Fields.Count
  'Determine the number of retrieved records
  With rs
    .MoveLast
    i = .RecordCount
    .MoveFirst
  End With
  'Load the listbox with the retrieved records
  ListBox1.Column = rs.GetRows(i)
  'Cleanup
    
  rs.Close
  db.Close
  Set rs = Nothing
  Set db = Nothing
lbl_Exit:
  Exit Sub
    
End Sub

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

        Dim myconnect As New SqlClient.SqlConnection
        myconnect.ConnectionString = "Data Source=.\INFLOWSQL;Initial Catalog=RioDiary;Integrated Security=True"
        Dim mycommand As SqlClient.SqlCommand = New SqlClient.SqlCommand()
        mycommand.Connection = myconnect
        myconnect.Open()


        Try
            mycommand.CommandText = "DELETE FROM MyDiary WHERE Title = @Title"

            'add parameter once
            mycommand.Parameters.Add("@Title", SqlDbType.VarChar)

            For Each row As DataGridViewRow In DataGridView1.SelectedRows
                'set parameter value to Title column of current row
                mycommand.Parameters(0).Value = row.Cells(0).Value

                mycommand.ExecuteNonQuery()
                DataGridView1.Rows.Remove(row)

            Next row

            MsgBox("Data Successfully Deleted")
        Catch ex As System.Data.SqlClient.SqlException
            MsgBox(ex.Message)
        End Try
        ds = New DataSet()
        da.SelectCommand = mycommand
        da.Fill(ds)
        mycommand.Dispose()

        Me.Close()
        myconnect.Close()
    End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'RioDiaryDataSet5.MyDiary' table. You can move, or remove it, as needed.
        Me.MyDiaryTableAdapter.Fill(Me.RioDiaryDataSet5.MyDiary)
        Dim con As New SqlConnection("  Data Source=.\INFLOWSQL;Initial Catalog=RioDiary;Integrated Security=True")
        cmd.CommandText = "Select Title,DiaryContent,DiaryDate FROM MyDiary "
        ComboBox1.Refresh()
        Dim da As New SqlDataAdapter
        da.SelectCommand = cmd
        cmd.Connection = con
        da.Fill(ds, "MyDiary")

        con.Open()

        ComboBox1.DataSource = ds.Tables(0)
        ComboBox1.DisplayMember = "Title"
        ComboBox1.ValueMember = "DiaryContent"
    End Sub

    Private Sub NewEntryToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NewEntryToolStripMenuItem.Click
        AddEntry.Show()
    End Sub



    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        If (Not Me.ComboBox1.SelectedItem Is Nothing) Then
            Dim SelectedItem = TryCast(ComboBox1.SelectedItem, DataRowView)
            Me.TextBox1.Text = SelectedItem.Row("DiaryDate").ToString()
            Me.TextBox2.Text = SelectedItem.Row("Title").ToString()
            Me.TextBox3.Text = SelectedItem.Row("DiaryContent").ToString()
            ComboBox1.Refresh()
        End If
        con.Close()

    End Sub