Input ComboBox ke DataGrid

Sub datagrid1Locked()
    DataGrid1.Columns(0).Locked = True
    DataGrid1.Columns(1).Locked = True
    DataGrid1.Columns(2).Locked = True
    DataGrid1.Columns(3).Locked = True
    DataGrid1.Columns(4).Locked = True
End Sub

Sub cmbEnabledTrue()
    cmbNoKamar.Enabled = True
    cmbJenisKamar.Enabled = True
    cmbLantai.Enabled = True
    cmbFasilitas.Enabled = True
    cmbTarif.Enabled = True
End Sub

Sub cmbEnabledFalse()
    cmbNoKamar.Enabled = False
    cmbJenisKamar.Enabled = False
    cmbLantai.Enabled = False
    cmbFasilitas.Enabled = False
    cmbTarif.Enabled = False
End Sub

Sub Clear()
    cmbNoKamar = ""
    cmbJenisKamar = ""
    cmbLantai = ""
    cmbFasilitas = ""
    cmbTarif = ""
End Sub

Private Sub cmdAdd_Click()
    Call cmbEnabledTrue
    cmdEdit.Enabled = False
    cmdDelete.Enabled = False
    cmdAdd.Enabled = False
    cmdExit.Enabled = False
    cmdSave.Enabled = True
    cmdCancel.Enabled = True
    cmbNoKamar.SetFocus
    Adodc1.Recordset.AddNew
End Sub

Private Sub cmdCancel_Click()
    If cmdEdit.Enabled = True Then
        Adodc1.Recordset.CancelUpdate
        Call Segar
    Else
        Adodc1.Recordset.CancelBatch
        Call Segar
        Call Clear
        Adodc1.Recordset.MoveFirst
    End If
End Sub

Private Sub cmdDelete_Click()
    On Error Resume Next
        Adodc1.Recordset.Delete
        Adodc1.Recordset.MoveFirst
        DataGrid1.Refresh
End Sub

Private Sub cmdEdit_Click()
    Call cmbEnabledTrue
    cmdAdd.Enabled = False
    cmdDelete.Enabled = False
    cmdCancel.Enabled = True
    cmdSave.Enabled = True
End Sub

Private Sub cmdExit_Click()
    psn = MsgBox("Yakin Keluar", vbQuestion + vbYesNo, "Keluar")
    If psn = vbYes Then
        Unload Me
    End If
End Sub

Private Sub cmdSave_Click()
    If cmbNoKamar = "" Or cmbLantai = "" Or cmbJenisKamar = "" Or cmbFasilitas = "" Or cmbTarif = "" Then
        MsgBox "Ada data yang belum diisi", vbOKOnly, "Perhatian"
    Else
        Adodc1.Recordset.Update
        DataGrid1.Refresh
        Call Segar
    End If
End Sub

Private Sub Form_Load()
    Call Segar
        lbl1.Caption = "HOTEL SUGENG RAWUH" & vbNewLine & "JL. KEBON BARU NO. 69 SEMPER BARAT" & vbNewLine & "JAKARTA UTARA"

        cmbNoKamar.AddItem "1"
        cmbNoKamar.AddItem "2"
        cmbNoKamar.AddItem "3"
        cmbNoKamar.AddItem "4"
        cmbNoKamar.AddItem "5"
        cmbNoKamar.AddItem "6"
        cmbNoKamar.AddItem "7"
        cmbNoKamar.AddItem "8"
        cmbNoKamar.AddItem "9"

        cmbJenisKamar.AddItem "Utama-1"
        cmbJenisKamar.AddItem "Utama-2"
        cmbJenisKamar.AddItem "Utama-3"
        cmbJenisKamar.AddItem "Kelas-1"
        cmbJenisKamar.AddItem "KElas-2"
        cmbJenisKamar.AddItem "Kelas-3"

        cmbLantai.AddItem "I"
        cmbLantai.AddItem "II"
        cmbLantai.AddItem "III"

        cmbFasilitas.AddItem "televisi + 4 single bed"
        cmbFasilitas.AddItem "televisi + double + single spring bed"
        cmbFasilitas.AddItem "televisi + 3 single bed"
        cmbFasilitas.AddItem "2 single bed"
        cmbFasilitas.AddItem "single + double spring bed"
        cmbFasilitas.AddItem "2 single bed"

        cmbTarif.AddItem "150000"
        cmbTarif.AddItem "130000"
        cmbTarif.AddItem "110000"
        cmbTarif.AddItem "100000"
        cmbTarif.AddItem "90000"
        cmbTarif.AddItem "70000"

End Sub

Sub Segar()
        cmdSave.Enabled = False
        cmdCancel.Enabled = False
        cmdDelete.Enabled = True
        cmdAdd.Enabled = True
        cmdEdit.Enabled = True
        cmdExit.Enabled = True
        Call datagrid1Locked
        Call cmbEnabledFalse
End Sub