รบกวนแนะนำวิธีการเขียนทำให้ Windows Service สามารถ Insert data ลง SQL Server หน่อยครับ

    Private Sub cmdBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBrowse.Click
        OpenFileDialog1.InitialDirectory = "C:\Documents and Settings\Administrator\Desktop"
        OpenFileDialog1.Filter = "Program Files (*.jpg;*.jpeg;*.bmp)|*.jpg;*.jpeg;*.bmp|All Files (*.*)|*.*"
        OpenFileDialog1.ShowDialog()
        picStdPic.ImageLocation = OpenFileDialog1.FileName

        Dim pNameArr As Array = Split(OpenFileDialog1.SafeFileName, ".")
        lblPicName.Text = Trim(pNameArr(0))

        Dim Rnd As New Random
        lblPicName.Text = Rnd.Next(10000, 10000000)

    End Sub



    Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
      File.Copy(OpenFileDialog1.FileName, "D:\" & lblPicName.Text.Trim & ".jpg", overwrite:=True)
    End Sub