Private Sub Form_Load()

Dim UyeSql As String
Dim x As Integer


UyeSql = "Select * from T_Uye order by uyeno"

    UyeRS.Open UyeSql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If UyeRS.RecordCount <> 0 Then
    UyeRS.MoveFirst
    AlanDoldur
End If
Dim fat As Control
    For Each fat In Me.Form.Controls
    Select Case fat.ControlType
        Case acTextBox
            fat.Value = ""
          Case acComboBox
              fat.Value = ""
            Case acCheckBox
                fat.Value = "0"
    End Select
Next

Durum_CBO = "AKTİF"

Me!Cerceve.Picture = CurrentProject.Path & "\ResimYok\"

End Sub

Me!Cerceve.Picture = CurrentProject.Path & "\Resim\ResimYok.jpg\"