Visual Basic

If Len(strJnts) > 0 Then
    _gblString = CreateGUIDString()

    gblConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\JWI\Data\JWI.mdb;Jet OLEDB:Database Password=jWi;")

    strData = "INSERT INTO LOLItems (LOLItemsID, LOLIFormID, Type, TextBox, MaterialsID, Units, DateCreated )" _
    & " VALUES ('" & _gblString & "',  " _
    & "'" & _frmGuid & "', '" _
    & 1 & "',' " _
    & strName & "',' " _
    & _MATGuid & "',' " _
    & strJnts & "',' " _
    & Now() & "');"

    gblCMD.Connection = gblConn
    gblCMD.CommandText = strData
    Dim cmd As New System.Data.SqlClient.SqlCommand

    gblConn.Open()
    gblCMD.ExecuteNonQuery()
End If

public class NullableDateTimePicker : System.Windows.Forms.DateTimePicker
  {
    // Default Constructor
    public NullableDateTimePicker() : base()
    {
      base.Format = DateTimePickerFormat.Custom;
      NullValue = " ";
      Format = DateTimePickerFormat.Custom;
      CustomFormat = "dd MMM yyyy";

      this.DataBindings.CollectionChanged += new CollectionChangeEventHandler(DataBindings_CollectionChanged);
    }
}

//NullableDateTimePicker is the class from which DateTimePickerEditingControl class inherits.
//IDataGridViewEditingControl is the interface which DateTimePickerEditingControl class implements.
class DateTimePickerEditingControl : NullableDateTimePicker, IDataGridViewEditingControl
    {
	//Constructor
        public DateTimePickerEditingControl()
        {
            this.Format = DateTimePickerFormat.Custom;
            this.CustomFormat = "dd MMM yyyy";
        }
}

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim combo As String
Dim SQLEV As SqlClient.SqlConnection = New SqlClient.SqlConnection
SQLEV.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database=db_chart;server=nrppc-mis1\sqlexpress"

combo = ComboBox1.SelectedValue.ToString

Dim command As New SqlCommand("usp_Procedure", SQLEV)
Dim adapter As New SqlDataAdapter(command)

command.CommandType = CommandType.StoredProcedure
With command.Parameters
.Add(New SqlParameter("@Ridfrom", SqlDbType.NVarChar))
.Add(New SqlParameter("@PidTo", SqlDbType.Money)).Direction = ParameterDirection.Output
.Add(New SqlParameter("Returnvalue", SqlDbType.Int)).Direction = ParameterDirection.ReturnValue
End With
End Sub

ALTER PROCEDURE usp_Procedure
@Ridfrom nVarChar(50),
@PidTo nVarchar(20) output

AS

SELECT @PidTo = ProcDetails.Procedure_ID
FROM ReportMaster INNER JOIN
ProcDetails ON ReportMaster.Procedure_ID = ProcDetails.Procedure_ID
WHERE ReportMaster.Report_ID = @Ridfrom

RETURN